Auswahl aus ComboBox- kopieren von Werten
Werten
ich habe nochmal eine Frage:
ich habe jetzt eine ComboBox, in der ich verschiedene Einträge habe (Diese Einträge bestehen aus Buchstaben-Zahlen-Kombinationen!). Diese befinden sich auch in der 2.Spalte auf wks2 hinterlegt. Sollte ein Eintrag aus der ComboBox gewählt werden, so sollten die dazugehörenden Werte (3.-12.Spalte) auf das wks5 kopiert werden, leider funktioniert der Code nicht:
With Worksheets("Tabelle2")
Dim Auswahl As String, Zeile As Integer
For Zeile = 15 To 39
Auswahl = ComboBox2.Value
If Auswahl = .Cells(Zeile, 2).Value Then 'die aktuelle Konfiguration abspeichern
.Range(.Cells(Zeile, 3), .Cells(Zeile, 12)).Copy Destination:=Worksheets("Tabelle5").Range( _
Worksheets("Tabelle5").Cells(30, 5), Worksheets("Tabelle5").Cells(30, 14))
End If
Next
End With