|
Hallo zusammen
Ich werke seit Stunden an einem Problem herum und bin mittlerweile ratlos....
Ich ziehe aus einer ComboBox Werte, die ich anschliessend in einer Range verwenden möchte. Leider kommt bei der Spalten-Variable "d" immer eine Fehlermeldung, die ich mir nicht erklären kann.
Für Eure Hilfe wäre ich sehr dankbar.
Viele Grüsse
Jörg
Public Sub KeyTabelle1Vorbereiten()
Dim Blatt1 As String
Dim BlattZiel As String
Dim u As String
Dim Vergleichszeile1 As String
Dim d As String
Blatt1 = ComboBox9.Value
BlattZiel = ComboBox11.Value
Vergleichszeile1 = ComboBox12.Value
d = ComboBox16.Value
Sheets(Blatt1).Select
u = Sheets(Blatt1).Cells(Rows.Count, 1).End(xlUp).Row 'unterste Gefüllte Zelle in 1. Spalte suchen!
With Sheets(Blatt1)
.Range(.Cells(Vergleichszeile1, d), .Cells(u, d)).Select
End With
Sheets(BlattZiel).Select
Cells(4, 1).Select
ActiveSheet.Paste
End Sub
|