Habe folgendes Problem was ich nicht hinbekomme da ich keine Ahnug habe wonach ich suchen soll.
Ich habe mir ein Userform erstellt in dem ich die verschiedenen Spielmoduse auswählen kann.
Optionbutton1 ist für die MS Statistik Schnitt. Bereich dazu ist auf dem Blatt MS Statistik A1:S34
Optionbutton2 ist für die MS Statisitk Punkte. Bereich dazu ist auf dem Blatt MS Statistik U1:AM34
Optionbutton3 ist für die MS Statistik WM Punkte. Bereich dazu ist auf dem Blatt MS Statistik AO1:BG34
Mit diesem Teil des Makros erstelle ich eine Neue Datei mit Namen Spieltasauswert welches mit dem Datum des Spieltages versehen ist. In diesem Workbook werden 7 Blätter Erstellt. 1 davon heist MS Statistik. (siehe Code QUELLE)
Private Sub CommandButton1_Click()
Dim wbName As String
Dim intSheets As Byte
Dim quelle, quelle2
Dim x As Byte
Dim y As Byte
Application.ScreenUpdating = False
intSheets = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 7
wbName = "Spieltagsauswertung - " & ThisWorkbook.Worksheets("Datenbank S1").Range("i439").Value & ".xls"
Application.DisplayAlerts = False
Workbooks.Add.SaveAs wbName
Application.DisplayAlerts = True
Application.SheetsInNewWorkbook = intSheets
quelle = Array("egal", "MS Statistik", "Pokal Statistik", "Gesamt Statistik", "Tandem Statistik", "Spieltagsauswertung", "Grand Jackpot", "Setzliste")
For y = 1 To 7
Next y
x = 1
For x = 1 To 7
Workbooks(wbName).Sheets(x).Name = quelle(x)
If x 2 Then
If x 4 Then
Workbooks(wbName).Sheets(x).Activate
ActiveWindow.DisplayZeros = False
Else
End If
End If
Next x
Nun möchte ich das der Bereich, den ich mit den optionbutton auswähle auf das Blatt MS Statistik Zelle A1 in der neu erstellten datei kopiert wird. Die Formate wie Rahmen etc müssen exaxt so kopiert wie sie auf dem in der Hauptdatei zu finden sind.
Ich habe auch schon unter Google etc geschat finde nur leider keinen Ansatz finden.
Ich hoffe sehr das Ihr mir dabei helfen könnt, denn dann hätte ich den schwersten Teil fertig.
Danke und Gruß Grischa