Hallo Zusammen,
Ich habe ein Userform gebaut mit dem ich eine Auswertung in eine neue xls datei kopiere.
Dabei werden auch aktuelle setzlisten mit kopiert. Die haben den Unterschied das bei ungraden ein anderer bereich kopiert wird als bei graden Zahlen. Die Zahlen stehen in Textbox1.
Im Moment mache ich das noch selbst das ich entweder Optionbutton26 für Grade und Optionbutton29 für ungrade anklicke. Dies möchte ich aber automatisiert haben.
Hier das Makro welches ich im moment nutze.
' Setzlisten
If OptionButton26 Then
strBer = "A1:B32"
ThisWorkbook.Sheets("Setzlisten").Range(strBer).Copy
Set NewSheet = Workbooks(wbName).Worksheets.Add
NewSheet.Name = "Setzliste"
With Workbooks(wbName).Worksheets("Setzliste").Range("a1")
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
ActiveWindow.DisplayZeros = False
End With
With Workbooks(wbName).Worksheets("Setzliste")
.PageSetup.Orientation = xlPortrait
.Rows("1:2").RowHeight = 12.5
.Rows("3:56").RowHeight = 12.5
Columns("A:A").ColumnWidth = 20
Columns("B:B").ColumnWidth = 10
Columns("D:D").ColumnWidth = 20
Columns("E:E").ColumnWidth = 10
End With
End If
If OptionButton26 Then
strBer = "A34:b65"
ThisWorkbook.Sheets("Setzlisten").Range(strBer).Copy
Set NewSheet = Workbooks(wbName).Worksheets.Add
With Workbooks(wbName).Worksheets("Setzliste").Range("d1")
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
ActiveWindow.DisplayZeros = False
End With
With Workbooks(wbName).Worksheets("Setzliste")
.PageSetup.Orientation = xlPortrait
.Rows("1:2").RowHeight = 12.5
.Rows("3:56").RowHeight = 12.5
End With
End If
If OptionButton29 Then
strBer = "A67:B98"
ThisWorkbook.Sheets("Setzlisten").Range(strBer).Copy
Set NewSheet = Workbooks(wbName).Worksheets.Add
NewSheet.Name = "Setzliste"
With Workbooks(wbName).Worksheets("Setzliste").Range("a1")
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
ActiveWindow.DisplayZeros = False
End With
With Workbooks(wbName).Worksheets("Setzliste")
.PageSetup.Orientation = xlPortrait
.Rows("1:2").RowHeight = 12.5
.Rows("3:56").RowHeight = 12.5
Columns("A:A").ColumnWidth = 20
Columns("B:B").ColumnWidth = 10
Columns("D:D").ColumnWidth = 20
Columns("E:E").ColumnWidth = 10
End With
End If
If OptionButton29 Then
strBer = "A34:b65"
ThisWorkbook.Sheets("Setzlisten").Range(strBer).Copy
Set NewSheet = Workbooks(wbName).Worksheets.Add
With Workbooks(wbName).Worksheets("Setzliste").Range("d1")
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
ActiveWindow.DisplayZeros = False
End With
With Workbooks(wbName).Worksheets("Setzliste")
.PageSetup.Orientation = xlPortrait
.Rows("1:2").RowHeight = 12.5
.Rows("3:56").RowHeight = 12.5
End With
End If
Hat einer von Euch ne Idee wie das klappen könnte. Es soll also bei Ungraden Zahlen der OB29 und bei graden der OB26 aktiv sein.
Hoffe Ihr könnt mir dabei helfen.
Gruß Grischa