Spalte = Buchstabe oder Zahl
15.02.2004 13:08:37
Erich M.
habe eine UF die wie folgt gefüllt wird:
Private Sub UserForm_Initialize()
Dim AM As Workbook, s As Integer
For Each AM In Application.Workbooks
ComboBox1.AddItem AM.Name
ComboBox2.AddItem AM.Name
Next AM
For s = 65 To 90
With ComboBox3
.AddItem Chr(s)
End With
Next s
End Sub
s = die Spalte als Buchstabe
Dann starte ich mit der UF ein Makro bei dem ich die Spalte definiert habe:
Dim letzteSpalte As String
letzteSpalte = ComboBox3.Text
Soweit kein Problem. Jetzt möchte ich aber ausgehend von "letzteSpalte" in
den Spalten +1, +2 usw. Eintragungen vornehmen:
Cells(1, letzteSpalte + 2) = "Muster 1"
Und hier setzt das problem ein; jetzt müsste die Spalte vom Buchstaben vorher
in eine Zahl geändert werden - geht so was?
Ich könnte es auch so lösen, dass ich bei der Initialisierung UF statt eines
Buchstabens die Zahl als Spalte wähle:
' For i = 1 To 25
' ComboBox3.AddItem i
' Next
Allerdings muss ich dann immer zuerst umrechnen (z.B.: G = 7), da ich die Spalte
eingeblendet habe.
Besten Dank für eine Hilfe!
mfg
Erich
Anzeige