Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1144to1148
1144to1148
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile/Zellen aktivieren?

Forumthread: Zeile/Zellen aktivieren?

Zeile/Zellen aktivieren?
ing.grohn
Hallo Forum,
Wenn ich mit Filtern Daten suche, wie wird dann die gefundene Zeile (oder Zeilen) aktiv?
ich suche so:
Sub Suchen10()
Dim Zeile As String
Range("B2").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="=*back*", Operator:=xlAnd
Selection.AutoFilter Field:=6, Criteria1:="=*horn*", Operator:=xlAnd
Zeile = ActiveCell.Address
MsgBox Zeile
End Sub

Allerdings bleibt die Zelle B2 aktiv.
Wie muß ichs ändern?
Vielmals bedankt für eine Antwort
Mir freundlichen Grüßen
Albrecht
Anzeige
AW: Zeile/Zellen aktivieren?
09.03.2010 16:24:38
Josef

Hallo Albrecht,
erstmal die Frage, wozu "Selecten"?

Gruß Sepp

Anzeige
AW: Zeile/Zellen aktivieren?
09.03.2010 16:50:56
ing.grohn
Hallo Sepp,
ich hatte heute schon die Frage gestellt, wie ich beim suchen mit:
Range("A:F").Find(What:=.TextBox15.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
MatchCase:=False, SearchFormat:=False).Activate
zwei kriterien angeben kann (z.B. Name und Ort).
Dann kam der Vorschlag von Rudi mit dem Filtern. Ich dachte bei Filtern könnte man keine Joker einsetztem oder Teile suchen, geht ja auch und daher kam das.
Ich bin auf der Suche nach einer Routine um zwei Suchkriterien zu verbinden.
Kannst Du vielleicht helfen.
Mit freundlichen Grüßen
Albrecht
Anzeige
AW: Zeile/Zellen aktivieren?
09.03.2010 16:54:38
Josef

Hallo Albrecht,
ok, aber nochmal, wozu .Select, oder anders gefrangt, was willst du mit den ausgewählten zellen machen?

Gruß Sepp

Anzeige
AW: Zeile/Zellen aktivieren?
09.03.2010 17:03:46
ing.grohn
Hallo Sepp,
ich meine Excel hätte mir gesagt ich müsse den Cursor irgendwo positionieren.
So gesehen, nicht meine Idee aber deshalb stehts da.
Mit freundlichen Grüßen
Albrecht
AW: Zeile/Zellen aktivieren?
09.03.2010 17:10:50
Josef

Hallo Albrecht,
jetzt verlier ich dann die Lust!
Wenn du die Zellen markieren willst, so wird das wohl einen Grund haben, oder?
Der Grund ist warscheinlich, das du nachher etwas mit diesen Zellen anfangen willst.
In Excel/VBA ist es aber zu mehr als 99% unnötig und unsinnig, Zellen zu markieren!
Kannst du meine einfache Frage, was du mit den markierten Zellen vor hast nicht beantworten, gut, dann lass es eben.

Gruß Sepp

Anzeige
AW: Zeile/Zellen aktivieren?
09.03.2010 17:20:38
ing.grohn
Hallo Sepp,
tut mir leid, ich hab dich nicht verstanden!
Das Ergebnis der Such möchte ich in einer Userform zeigen.
Dafür muß aber doch der "aktuelle" Datensatz dahin gerückt werden.
Ich weiß aus meiner Tabelle, dass der Satz 35 z. B.die Suchvorgabe enthält
und den will nach dem Filtern in der Hand haben.
Ich hatte nicht verstanden was du mit "was willst die mit select" mir sagen wolltest.
Mit freundlichen Grüßen
Albrecht
Anzeige
AW: Zeile/Zellen aktivieren?
09.03.2010 17:28:42
Josef

Hallo Albrecht,
im folgenden Code werden dier die Fundzeilen per MsgBox ausgegeben.

Sub Suchen10()
  Dim rng As Range
  
  With Range("B2")
    .AutoFilter
    .AutoFilter Field:=2, Criteria1:="=*back*", Operator:=xlAnd
    .AutoFilter Field:=6, Criteria1:="=*horn*", Operator:=xlAnd
    For Each rng In .CurrentRegion.SpecialCells(xlCellTypeVisible).Rows
      MsgBox rng.Row
    Next
  End With
End Sub

Gruß Sepp

Anzeige
AW: Zeile/Zellen aktivieren?
09.03.2010 17:51:33
ing.grohn
Hallo Sepp,
trotz aller Missverständnisse: es funktioniert.
Hab vielen Dank!!
Ich wünsche einen schönen Abend (hier scheint die Sonne)
Albrecht
AW: für Sepp Zeile/Zellen aktivieren?
10.03.2010 09:07:53
ing.grohn
Hallo Sepp,
mit der Procedur gibts noch zwei Fragen:
1. Warum wird immer Zeile 1 gezeigt?
2. bei einem Satz wird nur Zeile 1 gezeigt.
bei 2 gefilterten nur 1 und der erste gefilterte,
bei ca. 20 gefilterten etwa 10!
Sub Suchen10()
Dim rng As Range
Dim Zeile As Long
With Range("A:L") 'alt ("B2")
.AutoFilter
.AutoFilter Field:=3, Criteria1:="*gericht*", Operator:=xlAnd
.AutoFilter Field:=6, Criteria1:="*o*", Operator:=xlAnd
For Each rng In .CurrentRegion.SpecialCells(xlCellTypeVisible).Rows
MsgBox rng.Row
Zeile = rng.Row
MsgBox (Cells(Zeile, 1).Value & " " & Cells(Zeile, 2).Value & " " & Cells(Zeile, 3).Value  _
_
& " " & Cells(Zeile, 4).Value & " " & Cells(Zeile, 5).Value & " " & Cells(Zeile,  _
6).Value)
Next
End With
'Selection.AutoFilter
End Sub

Was läuft da schief?
Mit freundlichen Grüßen
Albrecht
Anzeige
AW: für Sepp Zeile/Zellen aktivieren?
10.03.2010 09:12:23
Josef

Hallo Albrecht,
lade doch eine Beispieldatei hoch und beschreibe, was wann und wo geshehen soll.

Gruß Sepp

Anzeige
AW: für Sepp Zeile/Zellen aktivieren?
10.03.2010 09:51:04
ing.grohn
Hallo Sepp,
mach ich, dauert nur bisschen.
Vielen Dank
Albrecht
AW: für Sepp Zeile/Zellen aktivieren?
10.03.2010 10:18:58
ing.grohn
Hallo Sepp,
hier die Beispieldatei.
https://www.herber.de/bbs/user/68490.xls
Zu meiner Schande muss ich schon jetzt sagen, hier zeigt er alles so an wie er soll.
Nur das mit der ersten Zeile bleibt.
Aber, was ist mit meiner "echten" Datei? Hast Du ne Idee?
Mit freundlichen Grüßen
Albrecht
Anzeige
AW: für Sepp Zeile/Zellen aktivieren?
10.03.2010 10:32:32
Josef

Hallo Albrecht,
das mit der ersten Zeile ist kein Problem.
Warum es in deiner Datei nicht klappt, kann ich so nicht beantworten.

Sub Suchen10()
  Dim rngF As Range, rng As Range
  Dim Zeile As Long
  
  Set rngF = Range("A1").CurrentRegion
  
  With rngF
    .AutoFilter
    .AutoFilter Field:=2, Criteria1:="*grohn*", Operator:=xlAnd '
    .AutoFilter Field:=6, Criteria1:="*o*", Operator:=xlAnd
    For Each rng In .Offset(1, 0).Resize(rngF.Rows.Count - 1, _
        rngF.Columns.Count).SpecialCells(xlCellTypeVisible).Rows
      Zeile = rng.Row
      
      MsgBox "Zeile: " & Zeile & vbLf & vbLf & (Cells(Zeile, 1).Value & " " & Cells(Zeile, 2).Value _
        & " " & Cells(Zeile, 3).Value & " " & Cells(Zeile, 4).Value & " " & Cells(Zeile, 5).Value & _
        " " & Cells(Zeile, 6).Value)
    Next
    .AutoFilter
  End With
End Sub

Gruß Sepp

Anzeige
AW: für Sepp Zeile/Zellen aktivieren?
10.03.2010 11:05:42
ing.grohn
Hallo Sepp,
erstmal vielen Dank für Deine Mühe und Geduld!!
Mit meiner Datei ist das so eine Sache. Wie aus dem Beispiel ablesbar, kann/darf ich die Datei nicht ins Netz stellen.
Eine Excel-Datei ist nun ja komplizierter als nur Zeilen und Spalten. Gibs nicht irgendwas wie eine Rorganisationstool oder Integritätstool oder so?
Das wars für heute. Ich wünsche einen schönen Tag.
Mit freundlichen Grüßen
Albrecht
PS: die For-Zeile muß ich gut überdenken!
Anzeige
AW: für Sepp letzte Meldung!
10.03.2010 11:23:11
ing.grohn
Hallo Sepp,
ich meine Datei in eine neue Datei kopiert (nur Werte). Jetzt funktionierts!
Das wars für heute. Ich wünsche einen schönen Tag. wollt ich noch Sagen!
Mit freundlichen Grüßen
Albrecht
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige