Hallo Karl,
heute ging es dann weiter, und eine vermeintlich kleine Änderung (ohne vorher zu speichern/sichern) hat mich doch arg zurückgeworfen.
Die verbundenen Zellen habe ich alle entfernt. Ich hätte es nicht als so kritisch angesehen, weil das Macro diese Zeilen gar nicht abfragt. Nicht abfragt, wenn man das vorher editiert.
Dein Achtung habe ich nicht beachtet: normal speichere ich laufend ab, und so ein kleiner Schritt zurück ist nicht so schlimm. Ich weiß aber nicht, was dort genau abgeschaltet wird, und daher welchen Einfluss es hat, und darum habe ich es so gelassen.
Ich habe das Macro Zeilen_ausblenden gelöscht, weil es von den Werten (Zellen) her eh nicht mehr gestimmt hat: wenn ich es später doch brauche, kann ich das wieder einbauen.
Ich bin auf den Reiter Druck, rechte Maustaste Code und habe das wie folgt gefüllt:
Code:
Private Sub Worksheet_Activate()
Dim Wiederholungen As Long
On Error GoTo Fehler
Application.ScreenUpdating = False-> BildschirmAktualisierung AUS
->For Wiederholungen = 27 To 116-> Bis Zeile 116 prüfen
If Cells(Wiederholungen, 3) = 0 And Cells(Wiederholungen, 4) = 0 Then
Rows(Wiederholungen).EntireRow.Hidden = True
Else
Rows(Wiederholungen).EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True-> BildschirmAktualisierung EIN
Exit Sub
Fehler:
Application.ScreenUpdating = True-> BildschirmAktualisierung EIN
MsgBox Es ist ein Fehler aufgetreten!
End Sub
For Wiederholungen = 5 To Range(A65536).End(xlUp).Row-> Bis letzte Belegte Zelle in Spalte A Prüfen
habe ich gelöscht
'For Wiederholungen = 27 To 116-> Bis Zeile 116 prüfen
in den Zeilennummern angepasst, weil ich das Formular etwas umgestellt habe.
If Cells(Wiederholungen, 3) = 0 And Cells(Wiederholungen, 4) = 0 Then
Das Ganze ist jetzt einreihig, und daher habe ich den Bereich mit den entsprechenden Wiederholungen herausgenommen.
Dann bin ich davon ausgegangen, dass die Ziffern die Spaltennummer ist, wobei A=1, B=2, C=3 und D=4 wäre.
So habe ich, auch wegen der neuen Formatierung, von 2 auf 3 und von 3 auf 4 geändert.
Dann kommt: Fehler beim Kompilieren: Next ohne For.
Dann habe ich eine Zeile getauscht:
For Wiederholungen = 27 To Range(A65536).End(xlUp).Row-> Bis letzte Belegte Zelle in Spalte A Prüfen
Die andere Zeile habe ihc natürlich heruasgenommen.
Das geht dann... aber gefühlt nur 1x.
Es wird alles schön zusammengefasst und ausgeblenet, wenn ich auf den Reiter Druck gehe.
Jetzt buche ich aber im Formular noch eine Zeile dazu, wechsel auf Druck, und nichts passiert. Die neu bebuchte Warengruppe wird nicht angezeigt.
Dort ist die Datei mit dem beschriebenen Stand:
http://www.minze-d.de/labu1.xltm
Blattschutz kommt später.