For...Next verschachtelt
12.04.2021 15:46:33
Andl
ich stehe vor folgende Herausforderung:
Ich habe in Spalte C und D ab Zeile 50 jeweils eine Alphanumerische Benahmung:
A (Gesamt)
A (Gesamt) 2XX
A (Gesamt) ABC Holding
B (Gesamt) ABC Holding
B (Gesamt) ABC alt
B (Gesamt) Beteiligungen (ABC
usw.
Nun möchte ich diese mit einer For..next-Schleife jeweils in Zelle A1 (Spalte C) bzw. B1 (Spalte D) einsetzen usw.
Sub ReportingDruckGes()
Dim ReportingEbene1 As String
Dim ReportingEbene2 As String
With Tabelle1
'Ablauf Reporting (KLM)
For ReportingEbene1 = 50 To .Cells(.Rows.Count, 3).End(xlUp).Row
For ReportingEbene2 = 50 To .Cells(.Rows.Count, 4).End(xlUp).Row
.Range("A1") = .Cells(ReportingEbene1, 1)
.Range("B1") = .Cells(ReportingEbene2, 1)
Tabelle8.PrintOut Copies:=1
Next ReportingEbene1
Next ReprotingEbene2
End With
'MsgBox "Die Monatsreportings wurden erfolgreich gedruckt!", , "Druckausgabe"
End Sub
Was mach ich hier falsch bzw. gibt es eine einfache Umsetzung?
Vielen Dank.
Beste Grüße
Andl