Daten in eine neue Tabelle einfügen (Makro)


                            Hallo Martin,

mit deinem Code überträgst du nur eine Zelle. Ist es das, was du möchtest? Die genannte Fehlermeldung kann ich nicht nachvollziehen. Alle Variablen sind ordentlich deklariert. Gerade auch nochmal getestet, läuft ohne Probleme:


Private Sub CommandButton1_Click()
Dim lgRow As Long
Dim wks As Worksheet
'den Namen der Zieldatei und des Blattes anpassen
Set wks = Workbooks("Mappe3.xls").Sheets("Tabelle1")
With wks
lgRow = .Range("A65536").End(xlUp).Row + 1
.Cells(lgRow, 1) = Cells(5, 2)
.Cells(lgRow, 2) = Cells(6, 2)
.Cells(lgRow, 3) = Cells(7, 2)
.Cells(lgRow, 4) = Cells(8, 2)
.Cells(lgRow, 5) = Cells(10, 2)
.Cells(lgRow, 6) = Cells(11, 2)
.Cells(lgRow, 7) = Cells(12, 2)
.Cells(lgRow, 8) = Cells(13, 2)
.Cells(lgRow, 9) = Cells(15, 2)
End With
End Sub


Zu deinem aufgezeichneten Code: der Makrorekorder kann nicht ohne Activate und Select auskommen und zeichnet jede Menge unnötige Einstellungen mit auf. Der bearbeitete Code könnte so aussehen:

Sub Makro2()

'

' Makro2 Makro

' Makro am 18.03.2004 von Martin aufgezeichnet

'

'

    Dim lgRow As Long

    Range("B5").Copy

    'für "NameDeinesBlattes" den Blattnamen in Datentabelle.xls auch in 

    'Anführungszeichen eingeben

    With Workbooks("Datentabelle.xls").Sheets("NameDeinesBlattes")

      lgRow = .Range("A65536").End(xlUp).Row + 1

      .Range("A" & lgRow).PasteSpecial Paste:=xlPasteValues

    End With

    Range("C7").Select

End Sub

Gruß
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub InDaten() Dim lgRow As Long Dim wks As Worksheet 'den Namen der Zieldatei und des Blattes anpassen Set wks = Workbooks("4438.xls").Sheets("Tabelle1") With wks lgRow = .Range("A65536").End(xlUp).Row + 1 .Cells(lgRow, 1) = Cells(5, 2) .Cells(lgRow, 2) = Cells(6, 2) .Cells(lgRow, 3) = Cells(7, 2) .Cells(lgRow, 4) = Cells(8, 2) .Cells(lgRow, 5) = Cells(10, 2) .Cells(lgRow, 6) = Cells(11, 2) .Cells(lgRow, 7) = Cells(12, 2) .Cells(lgRow, 8) = Cells(13, 2) .Cells(lgRow, 9) = Cells(15, 2) End With End Sub

Hallo Peter,
erstmal vielen Dank für die Hilfe!!
Ich bin folgendermassen vorgegangen:
Erstellen einer Schaltfläche über die Steuerelement-Toolbox. Bei 'CODE' habe ich Deine Zeilen eingefügt (mit Änderung des Dateinamens). Er schreibt mir dann durch die Schaltfläche automatisch was CommandButton1 und onclick ganz oben hin... Dann beim Ausführen sagt er 'End


Sub erwartet' in der ersten Zeile 'Option Explicit'. Ich habe dann auch noch versucht ein Modul anzulegen (und auch geschafft) Das Makro wurde dort 'automatisch' erstellt. Ich habe dieses Makro dann ausgeführt und es tat sich rein gar nichts. Keine Daten in der Datentabelle.
Folgende (vermutlich schwachsinnige Idee):
Ich habe ein Makro aufgezeichnet, das eine Zelle von einer in die andere Tabelle kopiert.
In Deinem Listing steht die Zeile
lgRow = .Range("A65536").End(xlUp).Row + 1
Könnte man diese Befehl, der m.E. der 'Schlüssel des Erfolges ist' nicht einfach in 'meinen Makrotext' integrieren.
Hier ist der:

Sub Makro2()
' Makro2 Makro
' Makro am 18.03.2004 von Martin aufgezeichnet
Range("B5").Select
Selection.Copy
Windows("Datentabelle.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C7").Select
End Sub




Falls Dir das Teil 'komisch' vorkommt: Ich habe nur die Inhalte eingefügt.

Gruss

Martin

Private Sub CommandButton1_Click() Dim lgRow As Long Dim wks As Worksheet Dim wksQuell As Worksheet 'eventuell den Namen des Quellblattes anpassen!! Set wksQuell = Sheets("Tabelle4") 'den Namen der Zieldatei und des Blattes anpassen Set wks = Workbooks("Mappe3.xls").Sheets("Tabelle1") With wks lgRow = .Range("A65536").End(xlUp).Row + 1 .Cells(lgRow, 1) = wksQuell.Cells(5, 2) .Cells(lgRow, 2) = wksQuell.Cells(6, 2) .Cells(lgRow, 3) = wksQuell.Cells(7, 2) .Cells(lgRow, 4) = wksQuell.Cells(8, 2) .Cells(lgRow, 5) = wksQuell.Cells(10, 2) .Cells(lgRow, 6) = wksQuell.Cells(11, 2) .Cells(lgRow, 7) = wksQuell.Cells(12, 2) .Cells(lgRow, 8) = wksQuell.Cells(13, 2) .Cells(lgRow, 9) = wksQuell.Cells(15, 2) End With End Sub

Beliebteste Forumthreads (12 Monate)

Daten in eine neue Tabelle einfügen (Makro)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread