Kopieren und einfügen aus Tabellenblatt
21.01.2021 11:55:06
Basti
ich hätte da ein kleines Problem mit VBA und stehe etwas hilflos da.
Ich möchte aus einem Tabellenblatt (Tabelle 1) etwas in ein anderes Tabellenblatt (Tabelle 18) kopieren, wenn ich über ein Dropdownmenü etwas auswähle.
Heißt im Beispiel:
Ich habe im Dropdwon 20 Schränke mit anderem Inhalt. In Tabelle 1 stehen diese Inahlte nach Schrank sortiert. Wenn ich jetzt Schrank 1 im Dropdwon auswähle, mlchte ich, dass die Werte aus Tabelle 1 (in dem Fall AW7 bis AW27) in die Spalte vier ab Zeile 7 in Tabelle 18 kopiert wird.
Wenn ich den Schrank ändere, sollen dann die entsprechend anderen Werte kopiert werden.
Hab es mal hiermit probiert, aber keinen Erfolg. Ich weiß allerdings nicht, wo der Fehler liegt, weil ich von VBA kaum Ahnung habe. Ich hoffe einer von euch kann mir helfen :)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zeile As Long
Dim Range As Long
Zeile = 9
Zeile1 = 14
'Stahlschrank auf Shelter 5
If Trim(CStr(ActiveSheet.Cells(Zeile, 3).Value)) = "Stahlschrank SH 5" Then
Rows(Workseets.Tabelle1("AW7:AW27")).Copy
End If
Rows(Zeile1, 4).Insert
End Sub