VBA - Spaltenbuchstabe einfügen
31.01.2019 14:03:36
Basti
ich habe unter https://support.microsoft.com/de-de/help/508891 einen Code gefunden, der mir den Spaltennamen der aktuellen Zelle in eine MsgBox ausgibt.
Mit meinen bescheidenen VBA-Kenntnissen habe ich jetzt versucht, dass der Buchstabe von "allen" markierten Zellen in die jeweiligen Zellen eingetragen wird.
Das Programm läuft durch und trägt auch in jede Zelle was ein, jedoch immer nur den Buchstaben, der als Erstes ausgewählten Zelle.
z.B.: A-B-C-D-E-F von links nach rechts gewählt, dann wird in alle Zellen "A" eingetragen.
Ich bin mir sicher, dass es bestimmt nur einer kleinen Änderung bedarf, jedoch komme ich nicht drauf.
Vielen Dank für die Hilfe im Voraus.
Gruß
Basti
Sub SpaltenbuchstabeEinfuegen()
Dim Adr String, rngC As Range
'Set rngC = Selection
Adr = ActiveCell.Address()
For Each rngC In Selection
rngC.value = Mid(Adr, 2, InStr(2, Adr, "$") - 2)
Next rngC
End Sub
Anzeige