Hallo,
ich habe folgendes Problem:
Ich muss in verschiedenen Spalten prüfen, ob die Einträge alle groß geschrieben sind. Das ganze sieht für Spalte "M" so aus und funktioniert auch :
Sub Kontrolle()
Dim Zelle As Range
For Each Zelle In Range("M1:M" & Cells(Rows.Count, 1).End(xlUp).Row)
Zelle = UCase(Zelle.Value)
Next Zelle
End Sub
Jetzt möchte ich vorher mit einer Inputbox prüfen, in welcher Spalte die Einträge geprüft werden sollen.
x = inputbox(...)
Für x wird dann ein Buchtsabe eingetragen.Also "M" zum Beispiel.
Wie muss ich das x jetzt in den Code einbauen damit das funktioniert?Habe es schon so versucht:
Sub Kontrolle()
Dim Zelle As Range
For Each Zelle In Range(x & ":" & x & Cells(Rows.Count, 1).End(xlUp).Row)
Zelle = UCase(Zelle.Value)
Next Zelle
End Sub
Das funktioniert so aber nicht. Ich hoffe mir kann wer weiterhelfen.
Danke
|