ich bin noch ein VBA Anfänger und habe mir aus dem Internet und anhand meines bescheidenen VBA Wissens folgendes VBA Macro gebastelt.
Die gute Nachricht ist, es läuft nun mittlerweile durch. Die schlechte es macht an zwei Stellen nicht was es soll und ignoriert mich :-(
Tja ist wie im Leben ;-)
Ich weiß aber auch nicht ob dies überhaupt so in Excel machbar ist.
1.Die If Anweisung wird ignoriert und es wird nichts verglichen sondern nur in das "Bearbeitungssheet" kopiert
2. Wenn er im DailySheet die letzte Zeile bearbeitet hat, beginnt er wieder von vorne, anstatt aufzuhören.
Hier das Makro
Dim Useful As Variant
Dim AlsoUseful As Variant
Dim LRendi As Long
Dim L2endi As Long
Dim lngDestinationRowCounter As Long
Dim j As Long
Dim ReiheVar As Long
LRendi = Sheets(1).Range("A" & Rows.Count).End(xlUp).row
Sheets("Bearbeitungssheet").Select
Columns("A:V").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
ChDir _
"S:\Sett\IntSet\Files\RapSu"
Workbooks.Open Filename:= _
"S:\Sett\Files\Account.xls"
Rows("1:3").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Cells.Select
Selection.Copy
Windows("Macro Rappelkiste.xlsm").Activate
Sheets(2).Activate
Range("A1").Select
ActiveSheet.Paste
Columns("O:O").Delete
Range("A1").Select
ReiheVar = 1
For lngDestinationRowCounter = 1 To LRendi
Useful = Sheets(1).Range("K" & lngDestinationRowCounter).Value
'MsgBox (Useful)
AlsoUseful = Sheets(1).Range("O" & lngDestinationRowCounter).Value
'MsgBox (AlsoUseful)
L2endi = Sheets(2).Range("A" & Rows.Count).End(xlUp).row
For j = 1 To L2endi
If Sheets(2).Range("K" & j).Value Useful And Sheets(2).Range("O" & j).Value AlsoUseful Then
Sheets("Daily Sheet").Select
Range("A" & j).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Bearbeitungssheet").Select
Range("A" & lngDestinationRowCounter + LRendi).Select
ActiveSheet.Paste
Else: ReiheVar = ReiheVar + 1
End If
LRendi = LRendi + 1
Next j
Next lngDestinationRowCounter
End Sub
Ich bedanke mich schon mal vorab bei allen Forums-Teilnehmern, welche sich die Zeit nehmen sich meine Anfrage anzusehen und natürlich besonders bei denen welche mir helfen können ;-))
Vielen Dank und einen erfolgreichen schönen Tag
Gruß
Franky