ich habe ein dringendes Excel-Problem bei dem ich alleine nicht mehr weiterkomme.
Ich hatte es bereits in einem anderen Forum versucht...da konnte mir aber leider nicht geholfen werden.
Die Aufgabe die sich mir stellt sieht folgendermaßen aus.
Ich habe eine Excel-Datei die mit Daten gefüllt ist.
In den Spalten H und I stehen jeweils entweder 0, 1 oder die Felder sind leer.
Nun möchte ich mit einem Makro (siehe weiter unten) nur die Zeilen in eine neue Datei kopieren in den die Felder H und I leer sind.
Mit "meinem" Makro dass ich aus einem anderen Projekt übernommen habe wird erst einmal das komplette Datenblatt in eine neue Datei kopiert. Das ist also schon mal fast perfekt :-)
Nun müsste das Makro so abgeändert werden dass halt nur die Zeilen in die neue Datei kopiert werden in den die Felder H und I leer sind.
Die Daten beginnen ab Zeile 9...bis Zeile 8 ist es nur eine Erklärung bzw. Kopf der vom Makro ebenfalls mitkopiert wird.
Wer kann mir freundlicherweise das Makro anpassen?
Vielen Dank schon einmal... :-)
HaBe
Sub CopyZeilen()
Dim wksTab As Worksheet
Dim sFile As String, sPath As String
Dim strSpalte As String
sPath = ThisWorkbook.Path & "/daten-auszug.xlsx"
sFile = Dir(sPath)
If sFile = "" Then
Workbooks.Add
Else
Workbooks.Open sPath
Application.DisplayAlerts = False
If ActiveWorkbook.Worksheets.Count = 1 Then
If Worksheets(1).Name = "Tabelle1" Then
Worksheets.Add
Worksheets("Tabelle1").Delete
End If
Else
For Each wksTab In ActiveWorkbook.Worksheets
If wksTab.Name = "Tabelle1" Then
wksTab.Delete
Exit For
End If
Next wksTab
End If
Application.DisplayAlerts = False
End If
ThisWorkbook.Worksheets("Tabelle1").Copy before:=ActiveWorkbook.Sheets(1)
With ActiveSheet
' benutzten Bereich kopieren und Werte einfügen
.UsedRange.Copy
.UsedRange.PasteSpecial Paste:=xlValues
End With
Application.DisplayAlerts = False
For Each wksTab In ActiveWorkbook.Worksheets
If wksTab.Name "Tabelle1" Then wksTab.Delete
Next wksTab
ActiveWorkbook.SaveAs sPath
Application.DisplayAlerts = True
End Sub