Ich versuche aus einem Arbeitsblatt via Makro nach belieben einen Lieferschein oder eine Rechnung anzuzeigen.
Hierzu muss ich Spalte G + H, sowie Spalte J gegenseitig ein- und ausblenden.
Ich hab noch weitere Makros welche ich benutze, deshalb soll jedes die vorangegangene Auswahl aufheben.
Ich hab da mit etwas Hilfe schon etwas vorgearbeitet, nur zieht sich nun die Ausführung der Makros unerträglich lange hin.
Kann mir da jemand beim bereinigen helfen?
Jedenfalls schon mal Danke wenn sich jemand die Mühe nimmt.
Gruss Stefan
Sub Lieferschein()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Columns("A:M").Select
Selection.EntireColumn.Hidden = False
Application.ScreenUpdating = False
Range("G:G,H:H").Select
Selection.EntireColumn.Hidden = True
Application.ScreenUpdating = False
Columns("J:J").Select
Selection.EntireColumn.Hidden = False
Application.ScreenUpdating = False
Cells.Select
Selection.EntireRow.Hidden = False
Application.ScreenUpdating = False
Dim c As Range
For Each c In Range("A1:A300")
If Not c.Value = "1" And _
Not c.Value = "0" Then
c.EntireRow.Hidden = True
End If
Next c
Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select
End Sub
Sub Rechnung()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Columns("A:M").Select
Selection.EntireColumn.Hidden = False
Columns("J:J").Select
Selection.EntireColumn.Hidden = True
Cells.Select
Selection.EntireRow.Hidden = False
Application.ScreenUpdating = False
Dim c As Range
For Each c In Range("A1:A300")
If Not c.Value = "2" And _
Not c.Value = "0" Then
c.EntireRow.Hidden = True
End If
Next c
Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select
End Sub