Spaltennummer als Buchstabe
30.04.2022 08:43:42
Henry
ich habe folgenden Code, mit dem ich bestimmte Zellen einfärben kann (blau und gelb), die zuvor in einer Inputbox in dem Format "Zahl, Zahl" eingegeben wurden.
Dies funktioniert auch einwandfrei.
Ich würde in der MsgBox die Spalte allerdings nicht als Zahl sondern als Buchstabe ausgeben.
Ich hoffe, ihr könnt mir helfen.
Private Sub CellsColour_Click()
Dim eingabe As String
Dim Spalte As Long, Zeile As Long
eingabe = InputBox("Bitte geben Sie die Zelladresse ein")
Spalte = Left(eingabe, InStr(1, eingabe, ",") - 1)
Zeile = Right(eingabe, InStr(1, eingabe, ",") - 1)
MsgBox "Spalte: " & Spalte & Chr(13) & "Zeile: " & Zeile
If Cells(Zeile, Spalte).Interior.ColorIndex = 6 Then
Cells(Zeile, Spalte).Interior.ColorIndex = 55
Else
Cells(Zeile, Spalte).Interior.ColorIndex = 6
End If
End Sub