wenn bestimmtes Wortteil dann verschieben

Hallo liebe Excel Gemeind
ich suche seit Tagen in einigen Foren um ein Problem zu lösen. Doch nun muss ich mich an euch wenden da ich absolut nicht weiter komme, und mir hier schon mehrmals super geholfen wurde, und mein Kopf bald am EXPLODIERT ist :-)
Also zu meinem Problem
ich habe eine Tabelle mit Rechnung erstellt die auch so weit funktioniert. Nun möchte ich wenn die Rechnung in die Tabelle Rechnungsverwaltung übertragen wurden, das wenn das Wort bezahlt erscheint in die Tabelle bezahlte Rechnung geschoben wird. Diese soll auch mit dem Wort Erinnerung Schicken zur Tabelle Mahnung passieren.
Alle Formatierungen brauchen beim verschieben in die Entsprechenden Tabellen nicht erhalten bleiben. Nur in der Rechnungsverwaltung sollte beim leeren der Zeilen die Formatierungen erhalten bleiben.
Beim verschieben währe es super wenn dieses dann untereinander verschoben wird.
Ich habe eine Test Mappe bei gelegt um mein Anliegen besser zu verdeutlichen.
https://www.herber.de/bbs/user/81827.xlsm
Danke an alle!
Grüße der Andi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo SoulOpa,
hier 2 Makros, die du bei dir einbauen musst.
Gruß
Franz

Sub Move_bezahlte()
Dim Zeile As Long, ZeileZiel As Long
Dim wks_Q As Worksheet
Dim wks_Z As Worksheet
Set wks_Q = Worksheets("Rechnungsverwaltung")
Set wks_Z = Worksheets("bezahlte Rechnung")
With wks_Z
ZeileZiel = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
With wks_Q
For Zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(Zeile, 10) = "bezahlt" Then
ZeileZiel = ZeileZiel + 1
.Range(.Cells(Zeile, 1), .Cells(Zeile, 11)).Copy Destination:=wks_Z.Cells(ZeileZiel, 1)
With wks_Z
With .Range(.Cells(ZeileZiel, 1), .Cells(ZeileZiel, 11))
'Formeln durch Werte ersetzen
.Value = .Value
End With
End With
.Range(.Cells(Zeile, 1), .Cells(Zeile, 7)).ClearContents
.Range(.Cells(Zeile, 9), .Cells(Zeile, 9)).ClearContents
End If
Next Zeile
End With
End Sub
Sub Move_Mahnung()
Dim Zeile As Long, ZeileZiel As Long
Dim wks_Q As Worksheet
Dim wks_Z As Worksheet
Set wks_Q = Worksheets("Rechnungsverwaltung")
Set wks_Z = Worksheets("Mahnung")
With wks_Z
ZeileZiel = .Cells(.Rows.Count, 1).End(xlUp).Row
End With
With wks_Q
For Zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(Zeile, 10) = "offen" And .Cells(Zeile, 11) = "Erinnerung schicken" Then
ZeileZiel = ZeileZiel + 1
.Range(.Cells(Zeile, 1), .Cells(Zeile, 11)).Copy Destination:=wks_Z.Cells(ZeileZiel, 1)
With wks_Z
With .Range(.Cells(ZeileZiel, 1), .Cells(ZeileZiel, 11))
'Formeln durch Werte ersetzen
'.Value = .Value
End With
End With
.Range(.Cells(Zeile, 1), .Cells(Zeile, 7)).ClearContents
.Range(.Cells(Zeile, 9), .Cells(Zeile, 9)).ClearContents
End If
Next Zeile
End With
End Sub

Beliebteste Forumthreads (12 Monate)

wenn bestimmtes Wortteil dann verschieben

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

320 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

wenn bestimmtes Wortteil dann verschieben

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

320 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread