AW: Tabellenbereich kopieren und einfügen
13.05.2006 14:16:29
Franz
Hallo Rolf,
das Makro überprüft Zeile für Zeile, ob im Blatt Zeit in Spalte D ob in der Zelle ein Wert steht. Falls ja, wird die Zeile in das Blatt Firma kopiert. Ich hoffe ich hab dich da korrekt verstanden. Statt Zeile 2000 habe ich als Suchbereich den tatsächlich mit Daten belegten Bereich der Tabelle verwendet. So ist das makro schneller, weniger als 2000 Zeilen in der Tabelle Zeit mit daten belegt sind.
Sub ZeilenKopieren()
Dim Suchbereich As Range, Zelle As Range
Dim Zeit As Worksheet, Firma As Worksheet
Set Zeit = ActiveWorkbook.Sheets("Zeit")
Set Firma = ActiveWorkbook.Sheets("Firma")
'Vorhandene Daten in Tabelle Firma ab Zeile 2 löschen
Firma.Range(Cells(2, 1), Cells(Firma.UsedRange.Row + Firma.UsedRange.Rows.Count, 1)).EntireRow.Delete
Set Suchbereich = Zeit.Range("D2:D" & Zeit.UsedRange.Row + Zeit.UsedRange.Rows.Count - 1)
For Each Zelle In Suchbereich
If Not IsEmpty(Zelle) Then 'Zelle ist leer
Zelle.EntireRow.Copy
Firma.Cells(Firma.UsedRange.Row + Firma.UsedRange.Rows.Count, "A").PasteSpecial Paste:=xlValues, Operation:=xlNone
End If
Next
Application.CutCopyMode = False
End Sub
mfg
Franz