Office: Werte in neue Excel Tabelle übergeben und speichern

Hallo!

In den VBA-Editor wechselst du mit Alt+F11.
Oder du klickst in der Symbolleiste "Steuerelemente-Toolbox" auf "Entwurfsmodus". Dann kannst du den Button auch wieder rechtsklicken.

Der graue Balken ist nicht normal...
Einfach mal

oder aber gleich

 

Hat sich alles erledigt, habe es weider hinbbekommen.
Und die anderen Zellen werden jetzt auch ausgewertet :-)

SUPER.....

 

soweit funnktioniert alles wieder.
Auch das mit dem Balken ist weg.

Nur habe ein Problem....

irgendwie übergibt er mir die Daten jetzt das erste mal richtig in spalte A, B, C,.... aber ab der Zweiten Zeile übergibt er die kompletten daten in Spalte A untereinander.

Hier mal der Code

Code:

Private Sub CommandButton1_Click()
Workbooks.Open ("C:\Dokumente und Einstellungen\Marcel.Siebert\Desktop\Kundenbetreuung OPL.xls")
ActiveWorkbook.Sheets("Reklamationen").Activate
  With ActiveWorkbook.ActiveSheet
    If .Range("A8") = "" Then
      .Range("A8") = ThisWorkbook.Sheets("Reklamationen").Range("I16")
    Else
      .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = ThisWorkbook.Sheets("Reklamationen").Range("I16")
    End If
    If .Range("B8") = "" Then
      .Range("B8") = ThisWorkbook.Sheets("Reklamationen").Range("I19")
    Else
      .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = ThisWorkbook.Sheets("Reklamationen").Range("I19")
    End If
    If .Range("C8") = "" Then
      .Range("C8") = ThisWorkbook.Sheets("Reklamationen").Range("D32")
    Else
      .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = ThisWorkbook.Sheets("Reklamationen").Range("D32")
    End If
    If .Range("D8") = "" Then
      .Range("D8") = ThisWorkbook.Sheets("Reklamationen").Range("D33")
    Else
      .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = ThisWorkbook.Sheets("Reklamationen").Range("D33")
    End If
    If .Range("E8") = "" Then
      .Range("E8") = ThisWorkbook.Sheets("Reklamationen").Range("C11")
    Else
      .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = ThisWorkbook.Sheets("Reklamationen").Range("C11")
    End If
        If .Range("G8") = "" Then
      .Range("G8") = ThisWorkbook.Sheets("Reklamationen").Range("D34")
    Else
      .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = ThisWorkbook.Sheets("Reklamationen").Range("D34")
    End If
  End With
  ActiveWorkbook.Close SaveChanges:=True
End Sub

 

Hallo,

habe dieses Thema mal nachgelesen und hab da vielleicht das gefunden, nachdem ich gesucht habe.
Also, habe ein Thema eingestellt, was da heisst:
Datenübernahme in neue Excelliste

Jetzt hab ich mr mal die Codes durchgelesen un dirgendwie passt das zusammen mit dem was ich suche.
Mit dem klitzkleinen Unterschied, dass ich nicht zwischen zwei Tabellenblättern kopieren will, sondern zwischen zwei Excellisten mit verschiedenen Namen.

Auch was Schatzi da geschrieben hat mit

ActiveWorkbook.Close SaveChanges:=True

würde da reinpassen.
Kann mir jetzt noch jemand sagen, ob ich da richtig liege ?
Danke und Gruss