mit folgendem Listing werden alle Deine Werte nacheinander in die Tabelle2(Spalte A) eingetragen ....
Private Sub Werte_uebertragen()
Dim Quelle As Range, Zelle As Range
Dim LetzteSpalteinZielTabelle As Long, Zaehler As Long
Set Quelle = Tabelle1.Range("B2:B40")
LetzteSpalteinZielTab=Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row
Zaehler = 1
For Each Zelle In Quelle
Tabelle2.Cells(LetzteSpalteinZielTab+Zaehler,1).Value=Zelle.Value
Zaehler = Zaehler + 1
Next Zelle
End Sub
Gruß Gabor
prüfe mal unten stehende Makro. In dem Beispiel ist die Quelltabellen mit "Quelle" und die Zieltabelle mit "Ziel" bezeichnet.
Im ersten Fall wird mit MTRANS() operiert, d.h. es besteht nach Durchlauf des Makro eine Verknüpfung zwischen den Tabellen. Wird der Quellbereich geändert, wirkt sich das auch auf den Zielbereich aus.
Im zweiten Makro werden die Werte "hart" kopiert. Das ist wohl das, was Du suchst.
Gruß
Axel
Gruß
Axel
na ja. wichtig ist, daß die datei, die er öffnen soll auch existiert. ich habe jetzt einfach mal so getan, als ob in c:\eigene dateien\ die excel-mappe sicherungsdatei vorhanden ist. da mußt du den code einfach entsprechend anpassen, sonst geht es natürlich nicht, weil er nichts findet, was er öffnen darf.
gruß, Axel
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen