Hallo,
ich habe folgendes Problem.
ich habe ein sehr lange If-Schleife, die 2 Tabellen miteinander vergleichen soll .
Nur haben meine Tabellen nicht nur 3 Spalten sonder 24 und wenn ich die If-Schleife so weiter führe, wie bisher, kann ich maximal bis zur 10 zeile iterrieren, dann springt der Cusor
in die nächste und es wird mir ein Fehler angezeigt.
Weiß jemand einer adere Möglichkeit als 2 Tabellen durch eine If-Schleife zu vergleichen.
Wäre Super
Grüße Nicole
Public Sub Pivot()
Dim haupt As Worksheet 'Ziel
Dim angebot As Worksheet 'Quelle
Set haupt = Worksheets("Haupttabelle")
Set angebot = Worksheets("Angebotsliste")
Dim zeileQuelle As Integer
Dim zeileZiel As Integer
Dim spalteQuelle As Integer
Dim spalteZiel As Integer
Dim counter As Integer
zeileQuelle = 4
zeileZiel = 3
spalteQuelle = 1
spalteZiel = 1
While Not IsEmpty(angebot.Cells(zeileQuelle, spalteQuelle))
For zeileZiel = 3 To haupt.Cells(Rows.Count, 1).End(xlUp).Row
If angebot.Cells(zeileQuelle, spalteQuelle).Value = haupt.Cells(zeileZiel, spalteZiel) And angebot.Cells(zeileQuelle, spalteQuelle + 1).Value = haupt.Cells(zeileZiel, spalteZiel + 1)
And angebot.Cells(zeileQuelle, spalteQuelle .Value = haupt.Cells(zeileZiel, spalteZiel + 3) Then
Exit For
End If
End If
Next zeileZiel
haupt.Cells(zeileZiel, spalteZiel).Value = angebot.Cells(zeileQuelle, spalteQuelle) 'Liste.Cells(zeileListe, spalteListe)
haupt.Cells(zeileZiel, spalteZiel + 1).Value = angebot.Cells(zeileQuelle, spalteQuelle + 1)
haupt.Cells(zeileZiel, spalteZiel + 2).Value = angebot.Cells(zeileQuelle, spalteQuelle + 2)
haupt.Cells(zeileZiel, spalteZiel + 3).Value = angebot.Cells(zeileQuelle, spalteQuelle + 3)
zeileQuelle = zeileQuelle + 1
Wend
'wieder auf 4 wenn danach code weiter geht
zeileQuelle = 4
End Sub
ich habe folgendes Problem.
ich habe ein sehr lange If-Schleife, die 2 Tabellen miteinander vergleichen soll .
Nur haben meine Tabellen nicht nur 3 Spalten sonder 24 und wenn ich die If-Schleife so weiter führe, wie bisher, kann ich maximal bis zur 10 zeile iterrieren, dann springt der Cusor
in die nächste und es wird mir ein Fehler angezeigt.
Weiß jemand einer adere Möglichkeit als 2 Tabellen durch eine If-Schleife zu vergleichen.
Wäre Super
Grüße Nicole
Public Sub Pivot()
Dim haupt As Worksheet 'Ziel
Dim angebot As Worksheet 'Quelle
Set haupt = Worksheets("Haupttabelle")
Set angebot = Worksheets("Angebotsliste")
Dim zeileQuelle As Integer
Dim zeileZiel As Integer
Dim spalteQuelle As Integer
Dim spalteZiel As Integer
Dim counter As Integer
zeileQuelle = 4
zeileZiel = 3
spalteQuelle = 1
spalteZiel = 1
While Not IsEmpty(angebot.Cells(zeileQuelle, spalteQuelle))
For zeileZiel = 3 To haupt.Cells(Rows.Count, 1).End(xlUp).Row
If angebot.Cells(zeileQuelle, spalteQuelle).Value = haupt.Cells(zeileZiel, spalteZiel) And angebot.Cells(zeileQuelle, spalteQuelle + 1).Value = haupt.Cells(zeileZiel, spalteZiel + 1)
And angebot.Cells(zeileQuelle, spalteQuelle .Value = haupt.Cells(zeileZiel, spalteZiel + 3) Then
Exit For
End If
End If
Next zeileZiel
haupt.Cells(zeileZiel, spalteZiel).Value = angebot.Cells(zeileQuelle, spalteQuelle) 'Liste.Cells(zeileListe, spalteListe)
haupt.Cells(zeileZiel, spalteZiel + 1).Value = angebot.Cells(zeileQuelle, spalteQuelle + 1)
haupt.Cells(zeileZiel, spalteZiel + 2).Value = angebot.Cells(zeileQuelle, spalteQuelle + 2)
haupt.Cells(zeileZiel, spalteZiel + 3).Value = angebot.Cells(zeileQuelle, spalteQuelle + 3)
zeileQuelle = zeileQuelle + 1
Wend
'wieder auf 4 wenn danach code weiter geht
zeileQuelle = 4
End Sub