Schleife mit Do / Cells
03.09.2007 13:54:54
Robert
ich hoffe es kann mir jemand helfen.
Folgendes Makro soll ab dem manuell eingegebenen Zellbereich die Spalte nach unten durchgehen und wenn zwei oder mehrere identische aufeinanderfolgende Begriffe auftreten diese Fett markieren(diesen Bereich kann amnn auch wunderbar variieren). Mein Problem besteht allerdings darin, dass ich dieses Makro gerne universell einsetzen möchte und deshalb das Ende der Tabelle als Variable brauche. Soweit so gut, als variable bekomme ich die werte zurückgegeben die ich brauche, allerdings funktioniert die Anweisung "Cells" nicht richtig, denn anstelle das ich den Berich der variablen als RangeObjekt zurück bekomme, gibt mir excel ein Bereich neben meiner mit daten Befüllten Tabelle zurückgegeben. Was machen ich falsch?
Vielen Dank & Gruß an alle VBA könner
Sub Prüfe_und_markiere()
Dim myRange As Range
Set myRange = Application.InputBox("Bitte geben Sie die Startkoordinate an", "Zeile festlegen", _
_
Type:=8)
If myRange = False Then Exit Sub
Dim Zeile As Long
Dim Spalte As Long
Dim Var1 As Variant
Zeile = Cells(Rows.Count, 1).End(xlUp).Row
Spalte = myRange.Column
Var1 = Cells(Zeile & "," & Spalte).AddressLocal(0, 0)
myRange.Select
Do Until ActiveCell.Address = Var1
If ActiveCell.Value = ActiveCell.Offset(-1, 0).Value Then
Selection.Font.Bold = True
ActiveCell.Offset(-1, 0).Select
Selection.Font.Bold = True
ActiveCell.Offset(2, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub