Zwei Workbooks Daten kopieren
09.05.2018 11:27:05
Zoe401
ich komme gerade nicht weiter. Ich habe zwei Workbooks:
1.) Protokollvorlage
2.) Probenübersicht
Nun möchte ich über den CommandButton2 (Protokollvorlage/Startseite) das zweite Workbook öffnen und Daten rüberkopieren. Das mit dem öffnen funktioniert alles. Aber wenn ich in der ersten freien Zeile der Spalte A im zweiten Workbook eine laufende Zahl eintragen will, goibt er mir einen Fehler aus (Index außerhalb des gültigen Bereichs) = fett markiert unten im Code.
Ich habe es erstmal mit =1 probiert, aber nichtmal das geht.
Aber das Worksheet heisst nunmal so, Excel hat es ja selbstständig geöffnet?!
Sub NeueProbe1()
Dim xlObj As Object
Set xlObj = CreateObject("Excel.Application")
Dim wbProtokollvorlage As Object
Set wbProtokollvorlage = ThisWorkbook
Dim i As Integer
i = wbProtokollvorlage.Sheets("Startseite").TextBox1.Value
With xlObj
.Visible = True
.Workbooks.Open ("C:\Users\kiesel\Desktop\Protokoll Vorlagen Test\Probenübersicht.xlsx")
If wbProtokollvorlage.Sheets("Startseite").CheckBox28 = True Then
.ActiveWorkbook.Sheets("Probenübersicht - Zahlen").Activate
ElseIf wbProtokollvorlage.Sheets("Startseite").CheckBox29 = True Then
.ActiveWorkbook.Sheets("Probenübersicht - Buchstaben").Activate
End If
End With
Dim wbProbenübersicht As Object
Set wbProbenübersicht = Workbooks("Probenübersicht.xlsx")
wbProbenübersicht.ActiveSheet.Range("A" & wbProbenübersicht.ActiveSheet.Cells(5, 1)).End( _
xlDown).Offset(1, 0).Value = 1
End Sub
Grüße,
Zoe