Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bereiche mit Optionbutton kopieren

Bereiche mit Optionbutton kopieren
07.05.2007 10:49:51
Grischa
Hallo Excelianer,
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereiche mit Optionbutton kopieren
07.05.2007 12:44:56
Erich
Hallo Grischa,
versuchs mal mit diesem Code:
(Einige IMHO überflüssige Zeilen habe ich rausgenommen.)

Option Explicit
Private Sub CommandButton1_Click()
Dim wbName As String
Dim intSheets As Byte
Dim arrBlattnamen
Dim x As Byte
Dim strBer As String
'   Application.ScreenUpdating = False
wbName = "Spieltagsauswertung - " _
& ThisWorkbook.Worksheets("Datenbank S1").Range("i439").Value & ".xls"
intSheets = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 7
Workbooks.Add.SaveAs wbName
Application.SheetsInNewWorkbook = intSheets
arrBlattnamen = Array("egal", "MS Statistik", "Pokal Statistik", _
"Gesamt Statistik", "Tandem Statistik", "Spieltagsauswertung", _
"Grand Jackpot", "Setzliste")
For x = 1 To 7
ActiveWorkbook.Sheets(x).Name = arrBlattnamen(x)
If x  2 And x  4 Then
Workbooks(wbName).Sheets(x).Activate
ActiveWindow.DisplayZeros = False
End If
Next x
If OptionButton1 Then
strBer = "A1:S34"
ElseIf OptionButton2 Then
strBer = "U1:AM34"
ElseIf OptionButton3 Then
strBer = "AO1:BG34"
End If
ThisWorkbook.Sheets("MS Statistik").Range(strBer).Copy _
ActiveWorkbook.Sheets("MS Statistik").Cells(1, 1)
ActiveWorkbook.Sheets("MS Statistik").Select
'   Application.ScreenUpdating = true
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Bereiche mit Optionbutton kopieren
07.05.2007 13:40:34
Grischa
Hallo Erich,
erstmal Vielen Dank das Du dich der Sache angenommen hast.
Leider passt es noch nicht so ganz.
Wenn ich den Code einfüge und dann auf den Button klicke kommt der debugger hoch und markiert folgenden Bereich in gelb.
ThisWorkbook.Sheets("MS Statistik").Range(strBer).Copy _
ActiveWorkbook.Sheets("MS Statistik").Cells(1, 1)
ActiveWorkbook.Sheets("MS Statistik").Select
Habe nur ne idee wodran das liegen könnte. Das die neuen Mappe noch nicht aktiv ist. Im oberen Teil wird ja ne neue Dtaei erstellt. wbName = "Spieltagsauswertung - " & ThisWorkbook.Worksheets("Datenbank S1").Range("i439").Value & ".xls"
Die muss dann aktiv sein oder zumindest gesagt werden das die daten da rein müssen.
Hoffe du kriegst das hin.
Danke und Gruß Grischa

Anzeige
AW: Bereiche mit Optionbutton kopieren @ Erich
07.05.2007 14:38:00
Grischa
Hallo Erich,
VIELEN DANK für deinen Lösungsansatz. habe den rest hinbekommen.
Danke und Gruß grischa

AW: Bereiche mit Optionbutton kopieren
07.05.2007 15:16:48
Erich
Hallo Grischa,
schön dass es jetzt läuft!
Verrätst du mir noch, wo das Problem lag und wie du es gelöst hast?
Ich vermute, dass es in der Mappe, in der der Code steht, kein Blatt "MS Statistik" gab oder gibt -
dann kann ThisWorkbook.Sheets("MS Statistik").Range(strBer).Copy nicht funzen.
Der Code ging davon aus, dass Bereiche aus der bestehenden Mappe kopiert werden sollen,
die Blätter der neuen Mappe sind ja zunächst mal alle leer.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Bereiche mit Optionbutton kopieren
07.05.2007 17:10:00
Grischa
Hallo Erich,
natürlich sag ichs dir gerne.
Hier der aktuelle Code.
If OptionButton1 Then
strBer = "A:S"
ThisWorkbook.Sheets("MS Statistik").Range(strBer).Copy
With Workbooks(wbName).Worksheets("MS Statistik").Range("a1")
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
End With
With Workbooks(wbName).Worksheets("MS Statistik")
.Rows("1:2").RowHeight = 9.75
.Rows("3").RowHeight = 6
.Rows("9").RowHeight = 6
.Rows("4:8").RowHeight = 9
.Rows("10:47").RowHeight = 9.75
.PageSetup.Orientation = xlLandscape
End With
Dieser ist für den Button 1. Für die anderen ist es derselbe nur andere Bezüge.
Dank Deiner Antwort habe ich den Ansatz gefunden.
Ist allerdings noch ne Änderung erwünscht. Vielleicht kannst du mir dabei auch helfen.
Sie Beitrag "neues Blatt mit Optionbutton"
Danke dir nochmals
Und Lieben Gruß Grischa
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige