Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Spalten aus anderer Tabellenblatt importieren

VBA Spalten aus anderer Tabellenblatt importieren
08.02.2006 12:19:45
uwe
Hallo,
ich möchte aus einem anderen Tabellenblatt einen bestimmten Bereich (z.B. E11 bis U404) in mein Tabellenblatt importieren.
Hierzu soll der Dateiname gesucht werden ("Datei Öffnen") und der entsprechende Bereich rüberkopiert werden.
Folgenden Anfang habe ich unternommen:
Dim sFile As String, tmp As String
Const strRange As String = "B11:U404" 'Datenbereich der Quelldatei
&ltpre&gt
Sub Import
sFile = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")
strRange.Copy Tabelle1.Range("B11") aus Quelldatei in Zieldatei
End Sub&lt/pre&gt
und dann hörts schon mit meinen Kenntnissen auf, so dass ich nicht weiterkomme.
Ihr könnt mir bestimmt helfen.
Gruß
Uwe

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Spalten aus anderer Tabellenblatt importieren
08.02.2006 23:22:23
HansHei
Hallo Uwe,
versuchs mal mit diesem Makro in Deiner Zieldatei:


Sub Daten_aktualisieren()
Application.DisplayAlerts = False
    Workbooks.Open Filename:="D:\Dein_Pfade\Quelldatei.xls"
        Sheets("Quellabelle").Select
        Range("B11:U404").Copy
    ActiveWindow.Close
    Range("B11").Select
    ActiveSheet.Paste
Application.DisplayAlerts = True
End Sub


Leider noch mit ein wenig "select":-)
Gruß
Hans
Anzeige
AW: VBA Spalten aus anderer Tabellenblatt importieren
09.02.2006 10:55:01
Uwe
Hallo Hans,
vielen Dank. Wenn ich dein Makro richtig verstehe, muss ich den Namen der Quelldatei kennen und benennen.
Bei mir kann jedoch der Name der Quelldatei variieren, so dass ich die entsprechende Datei im Explorer erst suchen muss. Der Pfad ist somit eine variable.
Gruß
Uwe
AW: VBA Spalten aus anderer Tabellenblatt importieren
09.02.2006 21:41:18
HansHei
Moin Uwe,
probiers mal so:


Sub Daten_aktualisieren()
Application.DisplayAlerts = False
Application.Dialogs(xlDialogOpen).Show
    'Workbooks.Open Filename:="D:\Dein_Pfade\Quelldatei.xls"
        'Sheets("Quellabelle").Select
        Range("B11:U404").Copy
    ActiveWindow.Close
    Range("B11").Select
    ActiveSheet.Paste
Application.DisplayAlerts = True
End Sub


Gruß
Hans
Anzeige
AW: VBA Spalten aus anderer Tabellenblatt importieren
09.02.2006 21:48:18
HansHei
Mon nochmal Uwe,
wenns eine andere Tabelle als Tabelle1 sein soll, dann so:


Sub Daten_aktualisieren()
Application.DisplayAlerts = False
Application.Dialogs(xlDialogOpen).Show
    'Workbooks.Open Filename:="D:\Dein_Pfade\Quelldatei.xls"
        Sheets("Tabelle2").Select
        Range("B11:U404").Copy
    ActiveWindow.Close
    Range("B11").Select
    ActiveSheet.Paste
Application.DisplayAlerts = True
End Sub


Gruß
Hans
Anzeige
AW: weil ich heut Langeweile habe...
09.02.2006 22:27:42
HansHei
noch ein Zusatz:
falls die angesteuerte Datei keine "Tabelle2" oder eine von Dir bestimmten Namen hat hilft "Error" und schließt sie wieder. Habe alles mal ein bischen auskommentiert, weil ich nicht weiß wie weit Du Dich auskennst.


Sub Daten_aktualisieren()
Application.DisplayAlerts = False 'Bildschirmaktivierung aus
    Application.Dialogs(xlDialogOpen).Show 'aktivieren des Dialoga
    'Workbooks.Open Filename:="D:\Dein_Pfade\Quelldatei.xls" 'bestimmte Datei auswählen
        On Error GoTo Ende 'wenn die Datei keine "Tabelle2" hat gehe zu Ende:
            Sheets("Tabelle2").Select 'Tabelle2 auswählen
                Range("B11:U404").Copy 'Bereich kopieren
            ActiveWindow.Close 'Datei schließen
        Range("B11").Select 'Zelle B11 aktivieren
    ActiveSheet.Paste 'in aktivierte Tabelle einfügen
Ende: ' weitermachen ab hier wenn "Error"
    ActiveWindow.Close 'Schließen der ausgewählten datei
Application.DisplayAlerts = True 'Bildschirmaktivierung an
End Sub


Gruß aus meiner Wahlheimat Ostfriesland (Ist einen Urlaub wert)
Hans
Anzeige
AW: weil ich heut Langeweile habe...
09.02.2006 22:56:03
Uwe
Hallo Hans,
Klasse, hat funktioniert. Den Rest schaffe ich hoffentlich alleine.
Vielen Dank auch nochmal für auskommentieren, da ich mich in der Tat noch nicht so gut auskenne.
Gruß
Uwe

204 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige