MsgBox, Zellennummer und Zelleninhalt
18.11.2019 10:45:40
Arek
wie kann ich in der MsgBox folgendes zusätzlich ausgeben:
A) den Inhalt von IngZeile
B) den Inhalt der Spalte + Zeile aus von IngZeile
Beispiel:
Vor dem Löschen erscheint die MsgBox. In dieser soll stehen Daten endgültig löschen? , Zeilenumbruch
Doppelter Eintrag in Zeilennummer xx gefunden (xx Inhalt aus IngZeile), Zeilenumbruch
Doppelter Name: (Inhalt aus Spalte A und Zeile (IngZelle)"
Ja/Nein
Sub DoppelteEinträgeFindenUndAnzeigen()
' Variable definieren
Dim IngZeile As Long
Dim IngZeileMax As Long
With Tabelle1
IngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row
For IngZeile = IngZeileMax To 1 Step -1
If Application.WorksheetFunction.CountIf(.Range("A:A"), _
.Range("A" & IngZeile).Value) > 1 Then
If MsgBox("Daten entgültig löschen?", vbYesNo) = 6 Then
.Rows(IngZeile).Delete
End If
End If
Next IngZeile
End With
End Sub