Makro zum Befüllen von Spalten aus einer 2. Datei

Sub LieDaten_Import() Dim LieBlattPfad As String Dim LieBlatt As Worksheet Dim Inhalt() As String Dim zeilen As Integer LieBlattPfad = InputBox("Wo liegt die Lieferantendatei? zB:'C:\Daten\lieferant.xls'", "Dateien- _ _ _ Pfad") If LieBlattPfad = "" Then Exit Sub Set LieBlatt = Workbooks.Open(LieBlattPfad).Sheets("Tabelle1") zeilen = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row Inhalt = LieBlatt.Range("A3:AM" & zeilen) End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Max,
ich ein ähnliches Problem folgendermaßen gelöst.
Ich mußte aus einer variablen Tabelle Werte aus bestimmten Spalten auslesen. Da ich zwar wußte wie die Spaltentitel heissen, aber nicht in welcher Spalte sie stehen, habe ich zunächst in der Empfängertabelle die erste Zeile mit den Spaltentiteln markiert und in einer FOR EACH Schleife die Spaltentitel ausgelesen. Diese dann in einer Select Case Schleife auf den bekannten Namen überprüft und einer Variablen (verkürzter Spaltentitel und "_sp" angehängt) die Spaltennummer übergeben.
In der abgebenden Tabelle eine gleiche FOR EACH Schleife angelegt und in der SELECT CASE Schleife (aus der Select Case Schleife der Empängertabelle übernommen) auf die Spaltentitel überprüft, und hier statt der Spaltennummer den Datenbereich der Spalte markiert und unter Verwendung der dazu passenden Spaltennummer der Empängertabelle in die Spalte der Empfängertabelle kopiert.
Tab1.activate
Range("A1:A40")
For Each i in selection
SpName = i.value
select case spName
case "test1"
t1_sp = i.Column
case "Test2"
t2_sp = i.column
usw
end select
next
tab2.activate
Range("A1:A60")
For Each i 0n selection
SpName = i.value
select case spName
case "test1"
datenbereich der Spalte markieren und copieren
tab1.range(cells(2,t1_sp),cells(2,t1_sp)..... paste
case "Test2"
....
usw
end select
next
Dies ist nur eine schnelle Gedankenhilfe.
MfG. Klaus

Danke für deine Hilfe.
Hab zuerst den Inhalt mit 39 for schleifen befüllt. Nachdem ich dann fertig war, hab ich kurz den Code durchdacht und mich anschließend ziemlich geärgert.
Letztendlich sieht mein Ergebnis so aus, falls mal jemand was ähnliches benötigt. Hab mir einfach ne Hilfstabelle gemacht fürs Mapping, was zukünftige Änderungen der Spaltenreihenfolge, etc. erheblich erleichtert.
Zwar nicht der sauberste Code und sicherlich weit von dem eines VBA Experten entfernt, aber er funktioniert für meine Zwecke:


Sub LieDaten_Import()
Dim LieBlattPfad As String
Dim check As Long
Dim LieBlatt As Worksheet
Dim Inhalt() As Variant
Dim Mapping() As Variant
Dim zeilen As Integer
Dim strTest As String
Dim tmp As String
On Error Resume Next
LieBlattPfad = InputBox("Wo liegt die Lieferantendatei? zB:'C:\Daten\lieferant.xls' Vorhandene  _
Inhalte werden üebrschrieben !!!", "Dateien-Pfad")
If LieBlattPfad = "" Then Exit Sub
check = GetAttr(LieBlattPfad)
If Not (Err = 0) Then
MsgBox "Der Pfad ist ungültig!", vbCritical
End If
Set LieBlatt = Workbooks.Open(LieBlattPfad).Sheets("Tabelle1")
LieBlatt.Activate
zeilen = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Inhalt = LieBlatt.Range("A3:AM" & zeilen)
ActiveWorkbook.Close
MsgBox ("Anzahl Zeilen:" & (zeilen - 2) & " werden importiert.")
Mapping = Sheets("mapping").Range("A2:B61").Value
ThisWorkbook.Sheets(1).Activate
For x = 1 To UBound(Mapping)
tmpZiel = Mapping(x, 1)
tmpQuelle = Mapping(x, 2)
Select Case Mapping(x, 2)                         'Sonderfälle in Mappingtabelle definieren'
Case ("")                                         'leere Felder aus Spalte 2 werden ignoriert'
Case ("datum")                                    'Datum von morgen autom. einfügen'
For y = 1 To (zeilen - 2)
Cells((y + 3), tmpZiel) = Format(Now() + 1, "YYYYMMDD")
Cells((y + 3), tmpZiel) = Format(Now() + 1, "YYYYMMDD")
Next y
Case ("Kombi AT")                       'mehrere Quell-Felder in ein Zielfeld-!!!---QUELLFELDER  _
WERDEN NICHT GEMAPPED---!!!'
For y = 1 To (zeilen - 2)
Cells((y + 3), tmpZiel) = "ARA: " & Inhalt(y, 20) & ", ERA: " & Inhalt(y, 21) & ", " &  _
Inhalt(y, 6)
Next y
Case Else
For y = 1 To (zeilen - 2)                      '-2 um Überschrift aus Quelldatei zu berü _
cksichtigen'
Cells((y + 3), tmpZiel) = Inhalt(y, tmpQuelle) '+3 um Überschrift in Ziel zu berü _
cksichtigen'
Next y
End Select
tmpZiel = ""
tmpQuelle = ""
Next x
End Sub

Beliebteste Forumthreads (12 Monate)

Makro zum Befüllen von Spalten aus einer 2. Datei

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro zum Befüllen von Spalten aus einer 2. Datei

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

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread