Import Daten aus anderem Sheet mittels Listbox

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Initialize() 'Namen der sichtbaren Tabellen in Listenauswahl einlesen Dim fileToOpen As Variant ' Aus welcher Datei? fileToOpen = Application.GetOpenFilename _ ("Spreadsheet Files (*.txt;*.xls;*.xlsx;*.dat), *.txt;*.xls;*.xlsx;*.dat,All _ Files (*.*),*.*", , _ "Datei zum Upload auswählen", , False) If fileToOpen <> False Then Workbooks.Open Filename:=fileToOpen Else Exit Sub End If With Me.ListBox_Tabellen .Clear For Each blatt In ActiveWorkbook.Sheets If blatt.Visible = xlSheetVisible Then .AddItem blatt.Name End If Next End With End Sub

Hallo Ralph,
okay gerne ich versuche es einmal.
Du hast mir ja schon ein Makro mit Userform erstell gehabt, mit dem ich eine Excel datei öffnen kann. Die Tabellennamen dieser Datei werden ja dann in die Listbox geschrieben, so das man sie auswählen kann. Jetzt möchte ich im nächsten Schritt, dass, wenn man eine Auswahl getroffen hat (Bspw. Tabelle1, Tabelle3 und Tabelle10 ausgewählt) auf den Button "Upload" der Userform klickt und die ausgewählten Tabellenblätter aus der Listbox (in meinem Beispiel Tabelle1,3,10) in die aktuelle Excel Datei kopiert werden. So, dass die Tabelle1,3,10 in der aktuellen Excel Datei in die Tabelle "Upload" nacheinander reinkopiert werden. Die Tabelle Upload hat bereits überschriften und die anderen Tabellen sollen dann ab Zeile 2 eingefügt werden. Die zu kopierenden Tabellen müssen kopiert werden von Spalte A bis S.
Konntest du verstehen was ich genau will, aber leider nicht selbst hinbekomme?
Grüße,
Manuel

Moin Manuel,
ich gehe jetzt noch davon aus, daß in den ausgewählten Tabellenblättern die Daten immer in A1 beginnen und zusammenhängend sind. Dann kann ich sie nämlich mit Blatt.Range("A1").currentregion auswählen.
Damit dann:

Sub Blätter_kopieren()
Dim lngIndex As Long
Dim zielblatt As Worksheet
Dim zielzelle As Range
' Ziel definieren
Set zielblatt = ThisWorkbook.Sheets("Upload")
Set zielzelle = zielblatt.Range("A" & zielblatt.Range("A1").CurrentRegion.Rows.Count + 1)
With Me.ListBox_Tabellen
For lngIndex = 0 To .ListCount - 1
If .Selected(lngIndex) Then
' dies ist selectiert, also kopieren (ohne Kopfzeile):
With Sheets(.List(lngIndex)).Range("A1").CurrentRegion
.Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Copy _
Destination:=zielzelle
' Zielzelle verschieben
Set zielzelle = zielzelle.Offset(.Rows.Count - 1)
End With
End If
Next
End With
' Userform verstecken
Me.Hide
End Sub

Schönes WE
Ralph

Beliebteste Forumthreads (12 Monate)

Import Daten aus anderem Sheet mittels Listbox

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Import Daten aus anderem Sheet mittels Listbox

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread