VBA: Datenbereich nach Bedingung kopieren
27.07.2018 11:17:47
Imke
ich habe mich heute bereits einige Zeit durch das Forum und andere Internetseiten gewälzt und denke mittlerweile, die Lösung zu meinem Problem ist sicherlich ganz einfach. Da ich aber mit VBA bis heute noch nie zu tun hatte, tue ich mich dennoch sehr schwer.
Die Ausgangssituation:
Ich habe eine Datei mit Tabelle1 und Tabelle2
Tabelle 1 hat eine Tabelle mit Werten in den Spalten A bis E (die Zeilenanzahl ist variabel, sollte also über eine Abfrage ermittelt werden). Immer wenn die Zelle in Spalte E nicht leer ist, soll mir das Makro die Daten von A bis E in eine neue Zeile bei Tabelle2 kopieren.
Nach einiger Mühe konnte ich mir ein VBA zurechtbasteln, welches diese Aufgabe übernimmt, allerdings kopiert es die gesamte Zeile. Da ab Spalte F in Tabelle2 allerdings Formeln hinterlegt sind, soll mir das Makro besser nur Spalte A bis E kopieren. Leider komme ich mit dieser Range-Funktion nicht zurecht und erbitte deshalb Hilfe von euch Profis.
Liebe Grüße
Meine bisherige Errungenschaft:
Sub BedingteKopieZeilen()
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
With Tabelle1
ZeileMax = .UsedRange.Rows.Count 'die letzte Zeile wird ermittelt
n = 1
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 5).Value "" Then
.Rows(Zeile).Copy Destination:=Tabelle3.Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
Beispiel-Mappe:
https://www.herber.de/bbs/user/122948.xlsx