Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.07.2024 18:36:17
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Spalte auslesen und in neue Mappe übertragen
10.01.2005 13:05:14
Markus
Hallo zusammen,
ich habe ne schwierige Kiste...
Mein bisheriger Code sieht wie folgt aus:

Private Sub CommandButton1_Click()
Dim myFile As String
myFile = Application.GetOpenFilename("Excel Dateien (*.xls; *.xlt; *.xla)," & _
"*.xls; *.xlt; *.xla")
If myFile = "Falsch" Then Exit Sub
Range("Temp!A1") = myFile
Workbooks.Open Filename:=myFile
lgLfdNr = ActiveWorkbook.Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
End Sub

Wenn man auf den Commandbutton 1 drückt, kann man im ganz normalen öffnen Fenster eine Excelarbeitsmappe öffnen. Bei der geöffneten Mappe wird dann in Spalte 1 Tabelle 1 die letzte beschriebene Zeile gesucht....
Ich möchte nun folgendes:
Die Daten aus Spalte 1 (von der gerade geöffneten Arbeitsmappe) sollen in Spalte 1 der Arbeitsmappe übertragen werden (in der das oben stehende Makro steht) Sie sollen natürlich erst ab Zeile 3 bis eben zur letzten Zeile (lgLfdNr) übertragen werden.
Geht so was?
Danke für die Hilfe
Markus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte auslesen und in neue Mappe übertragen
Uduuh
Hallo,
klar geht das.
ActiveWorkbook.Sheets("Tabelle1").Range(Cells(1,1),Cells(lgLfdNr,1)).Copy Thisworkbook.Sheets(1).Range("A3")
Gruß aus' Pott
Udo
AW: Spalte auslesen und in neue Mappe übertragen
10.01.2005 13:47:25
Markus
Klasse Uduuh!
Das ist es! Vielen lieben Dank!
Markus
Anzeige

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige