ich habe ein kleines Problem mit folgendem Makro.
Da meine VBA Kentnisse immer nocht bescheiden sind kann es nicht von mir sein, sondern es ist durch diese Forum entstanden. (Möchte mich ja nicht mir fremden Federn schmücken)
Sinn ist es ja eigentlich nur die Zeilen auszudrucken die in Spalte B und C befüllt sind. Weiter legt es den Druckerbeich von max. 60 Zeilen fest.
Nun habe ich es ein Paar mal verwendet und festgestellt, dass die Ausgeblendeten Zeilen mittgezählt werden. Nun wollte ich die Zeilen die in der Spalte B und C leer sind löschen um zu sehen ob es dann funktioniert. Aber ich bringe es nicht fertig.
Könnte mir jemand helfen?
Besten Dank im Voraus
Gruss Roger
Dim wks As Worksheet, i%, Anzahl%, Anzahl2%, strhiddenrows As String
Set wks = ActiveSheet
With wks
.Cells.PageBreak = xlPageBreakNone
.Cells(60, 1).PageBreak = xlPageBreakManual
For i = 9 To .Cells(.Rows.Count, 1).End(xlUp).Row
If Application.WorksheetFunction.CountA(.Range(.Cells(i, 1), .Cells(i, 3))) = 1 Then
strhiddenrows = strhiddenrows & i & ":" & i & ","
Anzahl2% = Anzahl2% + 1
If Len(strhiddenrows) grösser als 244 Then 'max 255 Zeichen möglich
strhiddenrows = Left(strhiddenrows, Len(strhiddenrows) - 1)
.Range(strhiddenrows).EntireRow.Hidden = True
strhiddenrows = ""
Anzahl2% = 0
End If
Else
Anzahl% = Anzahl% + 1
If Anzahl = 59 Then
.Cells(i + 1, 1).PageBreak = xlPageBreakManual
Anzahl = 0
End If
End If
Next
If strhiddenrows grösser kleiner "" Then
strhiddenrows = Left(strhiddenrows, Len(strhiddenrows) - 1)
.Range(strhiddenrows).EntireRow.Hidden = True
End If
End With