ich will über ein Makro eine neue Excel datei erstellen und aus der alten eine Zeile in die neue Datei kopieren, aber irgendwie klappt das nicht.
Sub konsolidiere()
Dim kosten As Worksheet, entlastungen As Worksheet
Set kosten = Worksheets("Kosten")
Set entlastungen = Worksheets("Entlastungen")
'Neue Excel Datei erstellen
Set wso = CreateObject("Wscript.Shell")
Set startxls = CreateObject("Excel.Application")
startxls.Visible = True
Set Sum = startxls.Workbooks.Add()
anwendungen = 0
Sum.Sheets(1).Delete
Sum.Sheets(1).Delete
Sum.Sheets(1).Name = "Information"
lines_kosten = kosten.Cells(65536, 2).End(xlUp).Row 'Gesamtzeilen Tabelle "Kosten"
For i = 6 To 10
If kosten.Cells(i, 2) "" Then
Sum.Sheets.Add
anwendungen = anwendungen + 1
tabellenname = Replace(kosten.Cells(i, 2), "/", " ")
Sum.Sheets(1).Name = tabellenname
kosten.Rows(2).Copy startxls.Sheets(1).Rows(2)
End If
Next i
Haken tuts an der markierten Stelle. Jmd eine Idee?
Danke!