MsgBox (infotextP) funktioniert nicht
08.12.2021 11:48:08
Basti
der Code gleicht in Tab1 den Spalteninhalt mit Tab2 ab und löscht die Zeile in Tab2 wo keine Übereinstimmung mit Tab1 besteht. (Funktioniert)
Was nicht funktioniert ist die Ausgabe der MsgBox (infoboxP): (Fett markiert)
Dim p As Long
Dim Tab1 As Worksheet
Dim infotextP As String
Set Tab1 = ActiveWorkbook.Sheets("TabelleQuelle")
With Tab2
For p = .Cells(.Rows.Count, 3).End(xlUp).row To 1 Step -1
If WorksheetFunction.CountIf(Tab1.Columns(2), .Cells(p, 3)) = 0 Then
infotextP = infotextP & Tab2.Cells(p, 2) & "; " & Tab2.Cells(p, 3) & "; " & Tab2.Cells(p, 4) & vbCrLf
.Rows(p).Delete
End If
Next p
End With
If infotextP " " Then
infotextP = "Folgenden Artikel Werden gelöscht:" & vbCrLf & infotextP
MsgBox (infotextP)
End If
Woran kann es liegen, dass die Infobox zwar angezeigt, aber die entsprechenden Zeilen (p) nicht angezeigt werden?
In einer ähnlichen Funktion mit dem gleichen (angepassten) Infobox-Code hat es funktioniert.
Vielen Dank für jegliche Unterstützung und Hilfe
Viele Grüße
Basti