Spalte als in Text formatieren
04.12.2019 12:39:28
Norman
ich möchte gern Spalteneinträge in Text formatieren, dazu soll zuvor die Spalte als Buchstabe abgefragt werden, jedoch bekomme ich das nicht wie gewünscht hin.
dazu habe ich bisher folgendes gefunden:
Sub ZahlenwerteAlsTextFormatieren()
Dim Zelle As Range
Dim Speicher As String
Dim Abfrage As String
Abfrage = InputBox("gib den Buchstabe der Spalte ein, die in das Textformat umgewandelt werden _
soll")
For Each Zelle In Range("I2:I" & Cells(Rows.Count, "I").End(xlUp).Row)
If Zelle "" Then
Speicher = Zelle.Value
Zelle.Value = Speicher
Zelle.NumberFormat = "@"
End If
Next Zelle
End Sub
wer kann mir dabei helfen, dass der Spaltenbuchstabe in der Inpubox den Bereich vorgibt, am besten sogar die Inputbox auf nur einen Buchstaben begrenzt!?
Anzeige