Gleiche Werte nach einander selektieren

[Raoul21]

Hi

mein makro in Beitrag #4, siehe oben, tut genau das, was Du in #1 wolltest. Nachdem Du 4 Tage nach meiner MakroErklärung in #8, um die Du mich gebeten hast, immer noch nicht reagiert hast, erlaube ich mir, höflich nachzufragen. 5 weitere Tage später schreibst Du, zwar nicht auf mein #8, aber, was Du wirklich brauchst. Und dass mein Makro nicht funktioniert. Dem muss ich widersprechen. Es funktioniert. Es geht von der aktiven Zelle aus und markiert alle Zellen gleichen Inhaltes darunter. Das kannst Du bereits in meinem #6 nachlesen. Mehr kann ich nicht tun. Du musst das Makro an Deine Gegebenheiten selbst anpassen, da ich die nicht kenne und es da auch nicht testen kann.
Gruß, Raoul





[url=https://www.clever-excel-forum.de/Thread-Gleiche-Werte-nach-einander-selektieren?pid=197426#pid197426][/url]

[DK84]

Hi, ich habe dein Makro ausprobiert und es funktioniert nur für die aktive Spalte. Es muss aber die ganze Zeile auswählen.
   

[DK84]

Hallo, das dein Makro die gleichen Werte nur in der aktiven Spalte selektiert stimmt ja, leider bringt mich das nicht weiter. Die Selektion soll auf ganze Zeile erfolgen wenn der Wert in Spalte AX gleich ist. Sorry für Unannehmlichkeiten!

[Raoul21]

Vielleicht so?

Code:

Sub Erweiterung()
    Dim i As Long
    If Selection.Count > 1 Then Exit Sub
    If Selection = "" Then Exit Sub
    Do
        i = 1 + i
    Loop Until Selection.Offset(i).Value <> Selection.Value
    Selection.Resize(i).EntireRow.Select
End Sub

Gruss Raoul

[DK84]

Hallo, ja genau so das ist super!

[DK84]

Hallo, momentan funktioniert das Makro nur wenn ich mich in der Spalte AX befinde.

Kann man das Makro so gestalten, dass egal in welcher Zelle ich mich befinde soll immer der Wert aus Spalte AX vergleichen werde?

[schauan]

Hallöchen,

das
Selection.Offset(i).Value
prüft immer die Nachbarzelle.

das
Cells(Selection,Row, "AX").Value
prüft den entfernten Nachbarn in AX. Besser wäre die Spaltennummer von AX statt "AX, geht aber beides.

[DK84]

Danke, klappt super!

[DK84]

Hallo, kann mir bitte jemand helfen?
Die Selektion der gleichen Nummer funktioniert nur beim ersten Mal danach wird der Befehl "Selektion bei Gleichen Nummer" nicht mehr beachtet.

Sub Erweiterung()

'Beginne das Makro von neuem

       
            For A = 1 To 20
           
    Cells(ActiveCell.Row, 50).Select
    MsgBox "springt in Spalte AX und markiert aktive Zeile"
Dim i As Long
If Selection.Count > 1 Then Exit Sub
If Selection = "" Then Exit Sub
    Do
        i = 1 + i
Loop Until Selection.Offset(i).Value <> Selection.Value
    Selection.Resize(i).EntireRow.Select
    MsgBox "Drucken"
    'Selektierten Bereich auf 1 Spalte E reduzieren
    Selection.Resize(, 1).Offset(, 49).Select
   
If Selection.Cells.Count > 1 Then
    MsgBox "mehrere Positionen erkannt"
    Selection(Selection.Count).Select
    ActiveCell.Offset(1, 0).Select
Else
    MsgBox "1 Position erkannt"
    ActiveCell.Offset(1, 0).Select
   
End If

            Next A
End Sub

   

[schauan]

Hallöchen,

ich habe mir das gepostete Makro 3x durchgelesen, finde aber den Befehl "Selektion bei Gleichen Nummer" nicht.