ich habe folgendes Problem:
Mein Tabellenblatt hat mehrere Einträge; eine Spalte wird nach Einträgen überprüft;
wenn keine Einträge vorhanden sind, wird die gesamte Zeile rot eingefärbt.
Jetzt öffnet sich eine msgBox und fragt ab, ob diese Zeile gelöscht werden soll und zwar wird hier, je nach Zeile, Vor- und Zuname in die msgBox eingelesen und ausgegeben. Bis dahin funktioniert alles gut.
Nun kann ich aber bei geöffneter msgBox nicht ans Tabellenende scrollen und wollte aus diesem Grund eine userForm benutzen. Nun bekomme ich den Text partout nicht in die TextBox der userForm.....
Hier der Code, den ich (mit Unterstützung, da ich absoluter Anfänger bin) für die msgBox _
geschrieben habe:
Sub Abfragebox_mit_Namen()
Dim Abfrage As String
Dim i As Integer
Dim Zeilen() As Integer
Dim j As Integer
Dim Länge As String
Länge = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
ReDim Zeilen(Länge)
For i = 3 To Länge
If Cells(i, 1).Value = "" Then
Zeilen(i) = i
Range(Cells(i, "A"), Cells(i, "G")).Interior.ColorIndex = 3
End If
Next i
For j = Länge To 3 Step -1
If Zeilen(j) > 0 Then
Abfrage = MsgBox("Soll " + Cells(j, "E") + " " + Cells(j, "D") + " aus_
der Liste entfernt werden?", vbYesNoCancel + vbQuestion, "Abfrage")
If Abfrage = vbYes Then
Rows(j).Delete
ElseIf Abfrage = vbCancel Then
j = 1
Cells.Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A2").Select
End If
End If
Next j
End Sub
Vielen Dank im Voraus!