Zeile copy&paste bei bestimmten Text
24.06.2022 14:41:27
Beckstar
ich habe bisher oft nach Lösungen in dem Forum gesucht und bin normalerweise fündig geworden. Jetzt beschäftige ich mich aber eine Weile mit einem Coding für ein Makro im Excel und bin nicht in der Lage, es richtig zu schreiben.
Ich habe eine Auswertung im Excel, die ich für eine Meldung an die Bundesbank aufbereiten muss. Mein Problem ist, dass bei der Buchung von "Zinsaufwand (Verbindlichkeit)" die Buchung ins Gegenteil verkehrt ein zweites Mal als "Zinskapitalisierung (Verbindlichkeit)" eingetragen werden muss. Das soll mit einem Makro erfolgen, damit die Fehlerquote gering gehalten wird.
Ich habe schon eine Zeile A3:Q3 mit den passenden Formeln eingefügt und möchte gern, dass mit Hilfe eines Makros die Zellen A3:Q3 unter die Zeile mit dem Suchbegriff "Zinsaufwand (Verbindlichkeit)" eingefügt wird.
Um mich langsam heranzutasten habe ich einen Code erstellt, der mir Leerzeilen unter den Suchbegriff einfügt.
Sub Leerzeile_einfügen()
'Test leerzeile einfügen, funktioniert
Columns("H:H").Select
Dim lngRow As Long
With Selection
For lngRow = .Rows.Count To 1 Step -1
If InStr(.Cells(lngRow, 1).Value, "Zinsaufwand (Verbindlichkeit)") Then
.Rows(lngRow + 1).EntireRow.Insert
End If
Next lngRow
End With
End Sub
Sub Test_Ende()
' Neuer Test, funktioniert mit zwei Zeilen nach "Ende"
Dim lZeile As Long
lZeile = 7
With Sheets("Z4>12.500")
Do While (ActiveCell.Value "Ende")
If .Cells(lZeile, 1) = "" Then
Sheets("Z4>12.500").Range("A3:P3").Copy '.Cells(lZeile, 1)
Worksheets("Z4>12.500").Range("A" & lZeile).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
lZeile = lZeile + 1
Loop
Sheets("Z4>12.500").Range("A3:P3").Copy '.Cells(lZeile + 1, 2)
Worksheets("Z4>12.500").Range("A" & lZeile).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End With
ActiveWorkbook.Save
End Sub
https://www.herber.de/bbs/user/153749.xlsx
Der Code müsste nicht in zwei Makros unterteilt werden. Das hatte ich nur für mich zum besseren Durchblick gemacht.
Ich wäre euch sehr dankbar, wenn mir jemand weiterhelfen kann.
Liebe Grüße
Becky