• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Hoofdletters in alle cellen in het werkblad

Status
Niet open voor verdere reacties.
T

Toebak

Nieuwe gebruiker
Lid geworden
2 dec 2019
Berichten
4
is er een mogelijkheid om ingevoerde tekst in een werkblad om te zetten naar allemaal hoofdletters? Maar wel in alle cellen, dus niet door gebruik te maken van de formule =GROTE.LETTERS(A....)

Alvast bedankt,
 
deze:
Code: 
Sub sp()
Cells.SpecialCells(2) = Format((Cells.SpecialCells(2)), ">")
End Sub
of deze
Code: 
Sub sp()
Cells.SpecialCells(2) = UCase(Cells.SpecialCells(2))
End Sub
of.....of...... enz enz
 
Laatst bewerkt:
@Sylvester, gaat dat wel goed bij jou? Bij mij niet.

Dit wel:

Code: 
Sub jv()
[A1:G20] = [Index(Upper(A1:G20),)]
End Sub
 
Jveer, bij mij gaat het goed (excel 365) die van jouw ook.

wat ik zo merkwaardig vind aan de jouwe, is dat hij wel werkt, maar dat mijn excel het woord Upper niet kent . hoe zit dat?

dus als ik op upper ga staan en op F1 druk krijg ik sleuter woord niet gevonden.
 
Laatst bewerkt:
Misschien omdat je Excel op Nederlands staat. VBA is Engels waardoor de match waarschijnlijk niet gevonden wordt.

Vreemd dat jouw oplossing bij mij niet werkt, ik heb ook office 365. Ik zet in verschillende cellen iets anders en als ik de macro run wordt alles omgezet naar de zelfde tekst(weliswaar in hoofdletters)
 
Code: 
Sub M_snb()
   Sheet1.UsedRange.Name = "snb"
   [snb] = [if(istext(snb),upper(snb),snb)]

   sn = Sheet1.UsedRange
   For j = 1 To UBound(sn)
      For jj = 1 To UBound(sn, 2)
         sn(j, jj) = UCase(sn(j, jj))
      Next
   Next
   Sheet1.UsedRange = sn

   For Each it In Sheet1.Cells.SpecialCells(2, 2)
     it.Value = UCase(it)
   Next
   
   For Each it In Sheet1.Cells.SpecialCells(2, 2)
     it.Value = StrConv(it, 1)
   Next
   
   For Each it In Sheet1.Cells.SpecialCells(2, 2)
     it.Value = Format(it, ">")
   Next
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan