Ich möchte meinen anfänger VBA Code Stark vereinfachen oder verkleinern. Kann mir jemand helfen??
Dim blatt As Worksheet
If Me.T2.Value = "0" Then GoTo a:
Select Case (T1) 'T1 ist Textbox1
Case 1
Set blatt = ThisWorkbook.Worksheets("Stock")
a: Range("B4").Select
With Worksheets("Stock").Range("B4")
.Value = .Value + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
Range("B4").Select
End With
With Worksheets("Stock").Range("B4")
.Value = .Value + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
Range("B4").Select
End With
With Worksheets("Stock").Range("B4")
.Value = .Value + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
Range("B4").Select
End With
With Worksheets("Stock").Range("B4")
.Value = .Value + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
Range("B4").Select
End With
With Worksheets("Stock").Range("B4")
.Value = .Value + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
Range("B4").Select
End With
With Worksheets("Stock").Range("B4")
.Value = .Value + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
Range("B4").Select
End With
With Worksheets("Stock").Range("B4")
.Value = .Value + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
Range("B4").Select
End With
With Worksheets("Stock").Range("B4")
.Value = .Value + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
Range("B4").Select
End With
With Worksheets("Stock").Range("B4")
.Value = .Value + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
Range("B4").Select
End With
With Worksheets("Stock").Range("B4")
.Value = .Value + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=4, Collate:=True
Range("B4").Select
End With
End Select
2. Frage Wie kann ich eine Prozedur aufteilen, wenn z.b Excel meldet ,dass der Code zu gross sei?
Vielen Dank im voraus
Gruss Lucien