Office: Werte in neue Excel Tabelle übergeben und speichern

Hallo zusammen,

hoffe ihr könnt mir weiterhelfen.
Ich habe eine Excel Tabelle1,
wo in Zelle A1 der Wert: Blume drinnen steht.
Nun möchte ich diesen Wert in eine neue Excel Tabelle2 automatisch oder durch drücken eines Button übergeben werden in Zelle A1
Die kommenden Werte sollen dann untereinander aufgereit werden A2, A3,...

Vielen Dank für eure Hilfe

 

Hallo!

Per Button könnte das so aussehen, wenn ich dich richtig verstanden habe:

Code:

Private Sub CommandButton1_Click()
If Sheets("Tabelle2").Range("A1") = "" Then
Sheets("Tabelle2").Range("A1") = Sheets("Tabelle1").Range("A1")
Else
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Sheets("Tabelle1").Range("A1")
End If
End Sub

 

Habe mit Scripten noch nie gearbeitet.
Wie muss ich dies einfügen?

Wie erstelle ich den Button?

Die zweite Tabelle wo die Daten reinkommen: Tabelle2 muss diese im gleichen Ordner sein?

Danke :-)
xeader

 

Ach, du redest von unterschiedlichen Mappen???
Dann müsste das wohl eher so aussehen (ungetestet):

Code:

Private Sub CommandButton1_Click()
Workbooks.Open ("C:\Pfad\Zieldatei.xls")
ActiveWorkbook.Sheets("Name des Zielblatts").Activate
  With ActiveWorkbook.ActiveSheet
    If .Range("A1") = "" Then
      .Range("A1") = ThisWorkbook.Sheets("Tabelle1").Range("A1")
    Else
      .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = ThisWorkbook.Sheets("Tabelle1").Range("A1")
    End If
  End With
End Sub

Den Button erstellst du aus der Symbolleiste "Steuerelement-Toolbox".
Dann Rechtsklick > Code anzeigen

 

Danke,
er bringt mir dann aber ein Fehler.
Den Buttion habe ich mit der Schaltfläche erstellt und mit Rechtsklick auf Marko zuweisen den Code von dir eingefügt.
Es sieht dann so aus:

Code:

Sub übertrag()
Private Sub CommandButton1_Click()
Workbooks.Open ("C:\Pfad\Zieldatei.xls")
ActiveWorkbook.Sheets("Name des Zielblatts").Activate
  With ActiveWorkbook.ActiveSheet
    If .Range("A1") = "" Then
      .Range("A1") = ThisWorkbook.Sheets("Tabelle1").Range("A1")
    Else
      .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = ThisWorkbook.Sheets("Tabelle1").Range("A1")
    End If
  End With
End Sub
End Sub

Jetzt wenn ich auf die Schaltfläche klicke, sagt er mir, End Suß wird erwartet!!!

Könntest du den Code ändern, der Wert liegt nicht in Zelle A1 sondern in C16, soll aber in tabelle2 in A1 rein, danke :-)

 

Hallo!

Du hast zwei Sub's ineinandergeschachtelt. Das geht nicht!

Code:

Private Sub CommandButton1_Click()
Workbooks.Open ("C:\Pfad\Zieldatei.xls")
ActiveWorkbook.Sheets("Name des Zielblatts").Activate
  With ActiveWorkbook.ActiveSheet
    If .Range("A1") = "" Then
      .Range("A1") = ThisWorkbook.Sheets("Tabelle1").Range("C16")
    Else
      .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = ThisWorkbook.Sheets("Tabelle1").Range("C16")
    End If
  End With
End Sub

Den Pfad und den Namen der Zieldatei musst du natürlich auch anpassen.
Ebenso die Namen des Zielblatts und des Quellblatts.

 

Soweit klappt alles, hab den Command Button erstellt und den Code zugewiesen.
Er öffnet auch brav die Tabelle2.xls

Aber er gibt dann einen Fehler aus:

Laufzeitfehler "9"
Index außerhalb des gültigen Bereichs

Code:

Private Sub CommandButton1_Click()
Workbooks.Open ("C:\Dokumente und Einstellungen\Marcel.Siebert\Desktop\Tabelle2.xls")
ActiveWorkbook.Sheets("Abholaufträge").Activate
  With ActiveWorkbook.ActiveSheet
    If .Range("A8") = "" Then
      .Range("A8") = ThisWorkbook.Sheets("Tabelle1").Range("C16")
    Else
      .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = ThisWorkbook.Sheets("Tabelle1").Range("C16")
    End If
  End With
End Sub

Wenn ich auf Debugge Modus gehe, zeigt er mir die Zeile

Code:

.Range("A8") = ThisWorkbook.Sheets("Tabelle1").Range("C16")

 

Hallo!

Dann heißt dein Quellblatt wohl nicht "Tabelle1"...

 

JUHUUUUUUUUUUU es klappt.

vielen vielen Dank :-)

Sry, wenn ich zuviel gefragt habe, aber jetztn kenne ich mich ein wenig mehr aus ;-)

DANKE

 

Zum Fragen ist dieses Forum doch da!

 

Leider noch ein Problem:

Wenn ich nun in Zelle C16 einen anderen Wert habe und ich diesen Dann in der Tabelle2 eine Zeile darunter haben will, überschreibt er mir aber den ersten Wert in Zelle A8 :-(

Kann man dies ändern?

Danke

 

Hmmm, das kann ich mir ehrlich gesagt nicht erklären, denn diese Zeile

Code:

.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

weist Excel an, die Zelle unter der letzten beschriebenen Zelle zu nehmen.

 

Hallo!

Ich habe das eben mal nachgebaut:
Es ist wohl cleverer, wenn du die Zieldatei danach wieder schließt (und speicherst).
Füge daher zwischen "End With" und "End Sub" noch diese Zeile ein:
ActiveWorkbook.Close SaveChanges:=True

 

Na das ist jetzt super... da hab ich glaube ich nichts mehr zu motzen.
Ich muss jetzt nur noch versuchen andere Zellen übertragen zu lassen.

kann ich diese einfach im Code Kopieren und den Zellennamen ändern?

Wie kann ich den Code des Command Button aufrufen?
Ich kann kein Rechtsklick mehr drauf machen :-(

Danke

 

Auf einmal zeigt mir Excel jetzt links so ein grauen balken an:
habe mal ein screenshot gemacht :-(

Hilfeeeee