Ich muss mit Excel 2000 arbeiten. -_-
Durch ein Button(Schaltfläche) soll ein "Öffnen mit"Fenster erscheinen. Da muss
eine Excel Datei frei auswählbar sein.
Die Excel Datei hat mehrere Arbeitsblätter/Register, wobei der erste
Arbeitsblattname immer unterschiedlich ist und die restlichen
Arbeitsblätter bei jeder Excel Datei den selben Namen haben.
Nun soll ich im ersten Arbeitsblatt einen Gewissen Bereich kopieren
und zugleich in einem zweiten Arbeitsblatt einen anderen Bereich
kopieren und diese beiden kopierten Sachen müssen dort eingefügt
werden, wo auch der Button war.
Vor zwei Tagen erst habe ich erst mit VBA angefangen, meist
nutze ich die "Aufnahme" funktion, wobei das hier nicht so leicht
geht.
Mein Quellcode:
Private Sub CommandButton1_Click()
Dim Ziel As Workbook
Set Ziel = ThisWorkbook
Application.Dialogs(xlDialogOpen).Show
Range("B1:B2").Copy
Windows("Template_Vorlage_Auswertung_TDR_aus_Soundbookdaten.xls").Activate
Range("A1").Select
ActiveSheet.Paste
' ab hier muss ein befehl reinkommen, um die davor geöffnete Excel
Mappe zu öffnen '
Sheets("FRF H1").Range("A2:AI12802").Copy
Windows("Template_Vorlage_Auswertung_TDR_aus_Soundbookdaten.xls").Activate
Sheets("FRF vertikal komplex").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("FRF vertikal komplex").Select
End Sub
--------------------
Ein anderer Quellcode
--------------------
Private Sub CommandButton1_Click()
Dim Ziel As Workbook
Set Ziel = ThisWorkbook
If Application.Dialogs(xlDialogOpen).Show Then
Set wb = ActiveWorkbook
wb.Sheets(1).Range("B1:B2").Copy ThisWorkbook.Sheets(1).Range("A1")
wb.Close False
End If
Sheets("FRF H1").Range("A2:AI12802").Copy
Windows("Template_Vorlage_Auswertung_TDR_aus_Soundbookdaten.xls").Activate
Sheets("FRF vertikal komplex").Select
Range("A4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("FRF vertikal komplex").Select
End Sub
------------------
Würde mich auf eine Antwort sehr freuen.
|