Abfrage beim Kopieren von Zeilen
03.10.2008 19:48:00
Zeilen
Ich benötige nur noch die Abfrage nach dem "Ziel"-Tabellenblatt. Dieser Name soll beim Start des Makros eingegeben werden. Bei erneutem Start des Makros soll der eingegebene Tabellenblattname allerdings überschreibbar sein und wieder solange eingetragen bleiben bis er erneut editiert wird.
Wenn ich aber die nachfolgenden Zeilen entferne meckert VBA.
Was habe ich im Makro zuviel entfernt?
Dim Datei As String
Datei = InputBox("Bitte Datei eingeben", , Sheets("Projektdaten").Cells(1, 1).Value)
Sheets("Projektdaten").Cells(1, 1).Value = Datei
Die "Originalzeilen", die kopiert und in das neue bereits angelegte Tabellenblatt (dafür die Abfrage) eingefügt werden sollen, stehen weiterhin im Tabellenblatt Vorlage in den Zeilen 7 bis 15.
Sub BereichKopieren()
Dim Datei As String
Dim Tabelle As String
Dim ws As Worksheet, wsZ As Worksheet, efz%
Datei = InputBox("Bitte Datei eingeben", , Sheets("Projektdaten").Cells(1, 1).Value)
Sheets("Projektdaten").Cells(1, 1).Value = Datei
Tabelle = InputBox("Bitte Tabellenblatt eingeben", , Sheets("T").Cells(2, 1).Value)
Sheets("Tabelle1").Cells(2, 1).Value = Tabelle
Set ws = ThisWorkbook.Worksheets("Vorlage")
Set wsZ = Workbooks(Datei).Worksheets(Tabelle)
efz = wsZ.Cells(Rows.Count, 1).End(xlUp).Row + 1
ws.Rows("7:15").Copy wsZ.Cells(efz, 1)
End Sub
liebe Grüsse
obelix