VBA Makro startet bei And nicht
02.03.2021 10:03:47
Patrick
es geht um folgenden VBA Code:
Option Explicit
Sub Spartacus_ID_hinzufügen()
Dim wkb1 As Workbook
Dim wkb2 As Workbook
Dim wksSpartacusID As Worksheet
Dim wksSINAUebrsichtsliste As Worksheet
Dim spartacuszeile As Integer, v4zeile As Integer
Set wksSINAUebrsichtsliste = Workbooks("SINA_Übersichtsliste_Win10_2020 V4_test2.xlsm"). _
Worksheets(1)
Set wksSpartacusID = Workbooks("SINA_Übersichtsliste_Win10_2020 V4_test2.xlsm").Worksheets( _
_
2)
For v4zeile = 2 To 50
'wksB.Cells(Rows.Count, 1).End(xlUp).Row
For spartacuszeile = 2 To wksSpartacusID.Cells(Rows.Count, 1).End(xlUp).Row
If wksSINAUebrsichtsliste.Cells(v4zeile, 10) = wksSpartacusID.Cells( _
spartacuszeile, 1) And wksSINAUebrsichtsliste.Cells(v4zeile, 11) = wksSpartacusID.Cells( _
spartacuszeile, 2) Then
wksSINAUebrsichtsliste.Cells(v4zeile, 12) = wksSpartacusID.Cells( _
spartacuszeile, 3)
wksSINAUebrsichtsliste.Cells(v4zeile, 49) = spartacuszeile
End If
Next spartacuszeile
Next v4zeilee
End Sub
Es geht um zwei Tabellen. Grundsätzlich stehen in der einen Tabelle2 in den Spalten Name, Vorname und ein Zahlenwert. Zeilenanzahl von Tabellle2 ist insgesamt über 16000. Nun wird in der ersten For Schleife mit Zeile zwei der Tabelle1 begonnen. Der Wert des Feldes Name und Vorname (cells 10 und 11) der Tabelle1 wird mit den Cells 1 und 2 der Tabelle2 verglichen und bei true in Cells 12 der Zahlenwert von Tabelle2 Cell 3 eingetragen. Dies soll über alle Einträge von Tabelle1 laufen (50 ist hier nur als Test).
Allerdings wird das Makro beim ausführen nicht gestartet. D.h. es ist für kurze Zeit der Kreis zu sehen, aber es erfolgen keine Eintragungen.
Es wurden Test gemacht. Zum einen wurde die and Bedingung entfernt, was tadellos funktioniert, aber eben bei Namensgleichheit ein Problem besteht. Ich habe auch eine kleine Tabelle erstellt, um die grundsätzliche Funktion zu testen, was ebenfalls positiv verläuft.
Ich kann nicht erkennen, wo hier das Problem liegt. Sind Excel die Datenengen zu groß oder stimmt etwas in meinem Code nicht?
Vielen Dank für jede Hilfe.
Gruß
Patrick.