Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife wird beim Ausführen nicht komplett durchlaufen beim Debuggen schon
22.04.2024 10:19:58 Tarnung7
NotSolved
22.04.2024 10:33:18 Tarnung7
NotSolved
22.04.2024 11:22:53 Gast76165
Solved

Ansicht des Beitrags:
Von:
Tarnung7
Datum:
22.04.2024 10:19:58
Views:
132
Rating: Antwort:
  Ja
Thema:
Schleife wird beim Ausführen nicht komplett durchlaufen beim Debuggen schon

Hallo zusammen,

mein Code soll Daten aus zwei Tabellenblättern vereinen. Dabei stehen in Tabellenblatt 1 die Länder welchem je jedes Produkt des zweiten Tabellenblatts aufführen soll. Dies wird auch gemacht jedoch nur für die ersten 47 Zeilen des Produktdatenblattes. Im Debuggermodus werden jedoch alle (104) Zeilen durchlaufen. Vielen Dank für eure Hilfe:

Sub CombineData()

' Deklaration der Variablen
Dim wb As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim lastRow1 As Long
Dim lastRow2 As Long
Dim i As Long
Dim j As Long
Dim x As Long
Dim k As Long


' Arbeitsmappe und Arbeitsblätter referenzieren
Set wb = ThisWorkbook
Set ws1 = wb.Worksheets("Länderzuordnung") ' Anpassen der Blattnamen
Set ws2 = wb.Worksheets("Neue Produkte_S.Verweis")
Set ws3 = wb.Worksheets("KPI Land_Prod. Bericht_VBA")

' Letzte Zeile in Tabelle 1 ermitteln
lastRow1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row

' Letzte Zeile in Tabelle 2 ermitteln
lastRow2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row
    
' Schleife über alle Zeilen in Tabelle 1 (ab Zeile 3)
For i = 3 To lastRow1
    ' Für jedes Land alle Produkte aufführen
    For x = 1 To lastRow2
        
        ' Für akt Zeile Spalten A bis I füllen
        For j = 1 To 9 ' Tabblatt Alle Länder
            ws3.Cells((i - 3) * lastRow1 + x, j).Value = ws1.Cells(i, j).Value
        Next j
        
        ' Für akt Zeile Spalten J bis L füllen
        For k = 1 To 3 'Tabblatt Produkte Spalten A bis C
            ws3.Cells((i - 3) * lastRow1 + x, 9 + k).Value = ws2.Cells(x + 1, k).Value
        Next k
    
    Next x
    
Next i

End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife wird beim Ausführen nicht komplett durchlaufen beim Debuggen schon
22.04.2024 10:19:58 Tarnung7
NotSolved
22.04.2024 10:33:18 Tarnung7
NotSolved
22.04.2024 11:22:53 Gast76165
Solved