Schleife in Makro einbinden

Hallo zusammen,
ich benötige ein wenig Hilfe bei der Anpassung meiner Makros in einer Datei. Bisher kann ich über einen Button Daten importieren. Sie landen dann automatisch auf dem Reiter "SAP Daten". Zusätzlich gibt es einen Monatsreiter (aktuell "Januar 2019") und einen "Erledigt" Reiter. Ich möchte jetzt folgendes per Makro umsetzen:
1. Wenn in Spalte H bei "SAP Daten" "ja" steht, dann sollen die Werte aus Spalte A, B, D, E, F und G in den aktuellen Monatsreiter in die erste freie Zeile kopiert werden (Index von "SAP Daten" -1). Das habe ich jetzt fest zum Testen für eine Zeile hinbekommen. Ich bräuchte es aber natürlich dynamisch und für alle Werte, bei denen "ja" steht.
Mein Code-Schnipsel dafür sieht wie folgt aus:


Sub SAP_Kopieren()
If Range("H18").Value = "ja" Then
Range("A18:B18,D18:G18").Select
Selection.Copy
Worksheets(Worksheets("SAP Daten").Index - 1).Select
Range("A24").Select
ActiveSheet.Paste
End If
End Sub

2. Wenn im aktuellen Monatsreiter in Spalte L "nein" steht und Spalte K = "" --> Werte aus Spalte A:G ausschneiden im Monatsreiter und in erster freier Zeile im "Erledigt" Reiter einfügen. Auch hier muss das Ganze wieder dynamisch für alle Werte mit "nein" funktionieren.
Hier mein bisheriger Ansatz:


Sub Erledigt_Kopieren()
If Range("L9").Value = "nein" Then
Range("A9:G9").Select
Selection.Copy
Sheets("Erledigt").Select
Range("A16").Select
ActiveSheet.Paste
Worksheets(Worksheets("SAP Daten").Index - 1).Select
Rows(9).Delete Shift:=xlUp
End If
End Sub

Könnt ihr mich hierbei ein wenig unterstützen?
Hier der Link zur Excel: https://www.herber.de/bbs/user/127057.zip
Viele Grüße
Patrick

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test_SAP() Dim rw As Range Dim ziel_sheet As Worksheet Set ziel_sheet = Sheets(Sheets("SAP Daten").Index - 1) For Each rw In Range("A:A").SpecialCells(xlCellTypeConstants) If Range("H" & rw.Row) = "ja" Then _ Range("A" & rw.Row & ":B" & rw.Row & ",D" & rw.Row & ":G" & rw.Row).Copy ziel_sheet. _ Range("A" & Rows.Count).End(xlUp).Offset(1, 0) Next rw End Sub

Sub test_monat() Dim rw As Range Sheets(1).Activate For Each rw In Range("A:A").SpecialCells(xlCellTypeConstants) If Range("L" & rw.Row) = "nein" And Range("K" & rw.Row) = "" Then _ Range("A" & rw.Row & ":G" & rw.Row).Cut Sheets("Erledigt").Range("A" & Rows.Count). _ End(xlUp).Offset(1, 0) Next rw Set Rng = Range("A6:A" & ActiveSheet.UsedRange.Rows.Count) Set Rng = Rng.specialcellls(xlCellTypeBlanks) Rng.EntireRow.Delete End Sub

Sub Monatsdaten_Kopieren() Dim rw As Range Sheets(1).Activate If WorksheetFunktion.CountIf() = 0 Then Exit Sub For Each rw In Range("A:A").SpecialCells(xlCellTypeConstants) If Range("L" & rw.Row) = "nein" And Range("K" & rw.Row) = "" Then _ Range("A" & rw.Row & ":K" & rw.Row).Cut Sheets("Erledigt").Range("A" & Rows.Count). _ End(xlUp).Offset(1, 0) Next rw Set Rng = Range("A3:A" & ActiveSheet.UsedRange.Rows.Count) Set Rng = Rng.SpecialCells(xlCellTypeBlanks) Rng.EntireRow.Delete End Sub

'Kopiert die Daten aus dem Monatsreiter in den Erledigt Reiter Sub Monatsdaten_Kopieren() Dim rw As Range Sheets(1).Activate If WorksheetFunction.CountIf(Range("L:L"), "nein") = 0 Then Exit Sub For Each rw In Range("A:A").SpecialCells(xlCellTypeConstants) If Range("L" & rw.Row) = "nein" And Range("K" & rw.Row) = "" Then _ Range("A" & rw.Row & ":K" & rw.Row).Cut Sheets("Erledigt").Range("A" & Rows.Count). _ End(xlUp).Offset(1, 0) Next rw Set Rng = Range("A3:A" & ActiveSheet.UsedRange.Rows.Count) Set Rng = Rng.SpecialCells(xlCellTypeBlanks) If Rng.Count > 0 Then Rng.EntireRow.Delete End Sub

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schleife in Makro einbinden

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread