Daten auslesen und in WB einfügen - Indexfehler

Hallo, liebe Profis!
Ich doktere seit Jahren mit Excel+VBA herum, um mir meine täglichen Arbeiten zu erleichtern. Nun habe ich länger nichts mehr machen müssen und stehe bei folgendem Makro vor einem Problem:

Private Sub CommandButton1_Click()
meister = "Kalkulationsnummern MASTER.xls"
wochenfile = ThisWorkbook.Name
For i = 1 To 5
Workbooks(wochenfile).Sheets(i).Select
suppeA1 = ActiveSheet.Cells(3, 2)
*gekürzt* Hier stehen alle anderen auszulesenden Artikel im Schema der Zeile über dem Text  _
_
i>
Workbooks(meister).Activate
Sheets(1).Select
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
ActiveCell.Value = suppeA1
ActiveCell.Offset(0, -1).Select
ActiveCell.Value = suppeN1
ActiveCell.Offset(0, -1).Select
ActiveCell.Value = suppeP1
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
ActiveCell.Value = suppeA2
ActiveCell.Offset(0, -1).Select
ActiveCell.Value = suppeN2
ActiveCell.Offset(0, -1).Select
ActiveCell.Value = suppeP2
Sheets(2).Select
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
*gekürzt* In der Art geht es für etwa 30 andere Artikel über 4 Sheets weiter
Next i
End Sub

Die Daten aus dem "Wochenfile" sollen ausgelesen werden und in eine Tabelle im "Masterfile" gesammelt werden. Bis zum alphabetischen Sortieren und Check auf doppelte Files bin ich gar nicht gekommen, weil ich hier schon "außerhalb des gültigen Bereichs" bin.
Kann mir jemand einen Tipp geben, wo der Fehler liegen könnte?
Vielen Dank im Voraus und herzliche Grüße aus München
Michael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub CommandButton1_Click() Dim Meister As String, WochenFile As String Dim SuppeA1 As String, SuppeN1 As String, SuppeP1 As String Dim SuppeA2 As String, SuppeN2 As String, SuppeP2 As String Dim i As Integer Meister = "Kalkulationsnummern MASTER.xls" WochenFile = ThisWorkbook.Name For i = 1 To 5 With Workbooks(WochenFile).Sheets(i) SuppeA1 = .Cells(3, 2) '*gekürzt* Hier stehen alle anderen auszulesenden Artikel im Schema der Zeile über dem Text End With With Workbooks(Meister) With .Sheets(1).Cells(65000, 1).End(xlUp) .Offset(1, 0) = SuppeA1 .Offset(1, 1) = SuppeN1 .Offset(1, 2) = SuppeP1 .Offset(1, 3) = SuppeA2 .Offset(1, 4) = SuppeN2 .Offset(1, 5) = SuppeP2 End With With .Sheets(2).Cells(65000, 1).End(xlUp).Offset(1, 0) '*gekürzt* In der Art geht es für etwa 30 andere Artikel über 4 Sheets weiter End With End With Next i End Sub

With Workbooks(Meister) With .Sheets(1) If Application.CountIf(.Columns(2), SuppeN1) > 0 Then lRow = Application.Match(SuppeN1, .Columns(2), 0) - 1 Else lRow = .Cells(Rows.Count, 1).End(xlUp).Row End If With .Cells(lRow, 1) .Offset(1, 0) = SuppeA1 .Offset(1, 1) = SuppeN1 .Offset(1, 2) = SuppeP1 .Offset(1, 3) = SuppeA2 .Offset(1, 4) = SuppeN2 .Offset(1, 5) = SuppeP2 End With .Range("A1").Sort key1:=.Range("A2"), order1:=xlAscending, header:=xlYes End With With .Sheets(2) End With

If i = 5 Then For i2 = 1 To 4 With Workbooks(meister).Sheets(i2) .Activate .UsedRange.Select Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End With Next i2 Else End If

Das schaut schon mal sehr gut aus, ich kanns nur leider heute nicht mehr genau testen, ich mach mich morgen mal mit der gesamten Datenmenge dran.
Wenn mein VBA-Verständnis richtig ist, dann müsste ich für jeden N-Wert eine Else-Variable mehr zufügen, oder?
Zum Verständnis: Die Buchstaben stehen für Artikel, Nummer und Preis. Also jedes Mal, wenn eine Nummer erneut vergeben wird, hat sich was geändert, entweder Artikel oder Preis.
Also zB:
suppeA1 = Kraftbrühe mit Grießnocken
suppeN1 = 12345
suppeP1 = 1,00
Jetzt ändert sich der Preis für die Nocken vom Lieferanten, also ist bei der nächsten Abfrage:
suppeA1 = Kraftbrühe mit Grießnocken
suppeN1 = 12345
suppeP1 = 1,05
Wenn es jetzt also wie im Beispiel suppeN1 und suppeN2 gibt, wie müsste die Formel dann angepasst werden, dass Excel für jeden N-Wert das Vorhandensein checkt?
Geht das über CASE und FOR, dass ich sage:
WENN suppeN1 vorhanden
DANN alle drei Werte dieser Zeile überschreiben
UND
WENN suppeN2 vorhanden
....
usw.
Bei meinem Versuch beendet er die IF-Schleife, wenn der erste Wert vorhanden ist.
Wenn das alles zu ungenau ist, kann ich morgen gerne mal ein Dummy-Sheet reinstellen, das anonymisiert ist.
Gruß und auf jeden Fall schon mal Danke für den Schritt vorwärts!
Michael

Beliebteste Forumthreads (12 Monate)

Daten auslesen und in WB einfügen - Indexfehler

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten auslesen und in WB einfügen - Indexfehler

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

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread