Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1684to1688
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Suchen von Werten in Spalte und Spalte Wechseln

Suchen von Werten in Spalte und Spalte Wechseln
17.04.2019 11:14:08
Werten
Hallo,
ich habe mal wieder ein Problem was ich nicht gefixxt bekomme...
Ich habe in einer Spalte Zahlenwerte die aufsteigend sind
(also untereinander: 0,0,0,1,1,1,3,3,3,3,4,4,4,4,4)
Ich möchte das mir in der Spalte das Maximum gesucht wird. Ok das habe ich über die Suche nach der letzten ausfefüllten Zeile. Jetzt soll der mir aber nach oben hin den Bereich makieren wo das letzte mal dieser Wert auftaucht. Also in diesem konkreten Beispiel hier alle Zeilen mit der Vier....
Prinzipiell müsste ich dann noch 3 Spalten nach rechts wandern und die werte auf der gleichen höhe auch kopieren aber das ist erstmal eine andere sache :D

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suchen von Werten in Spalte und Spalte Wechseln
17.04.2019 11:30:32
Werten
Hallo,
Blattname und Spalte mußt du halt an deine Verhältnisse anpassen, das hast du ja nicht verraten. Ob das Selektieren des Bereiches tatsächlich notwendig ist, kannst nur du sagen. Was du letztendlich genau vor hast, hast du ja auch nicht verraten.
Sub Schaltfläche1_Klicken()
Dim loMax As Long, loStart As Long
With Worksheets("Tabelle1")
loMax = .Cells(.Cells(.Rows.Count, 2).End(xlUp).Row, 2).Value
loStart = .Columns(2).Find(what:=loMax, LookIn:=xlValues, lookat:=xlWhole).Row
.Range(.Cells(loStart, 2), .Cells(.Cells(.Rows.Count, 2).End(xlUp).Row, 2)).Select
End With
End Sub
Gruß Werner
Anzeige
AW: Suchen von Werten in Spalte und Spalte Wechseln
17.04.2019 11:38:58
Werten
Hallo Werner,
danke erstmal für deine schnelle Hilfe...
leider bekomme ich jetzt einen Laufzeitfehler:'91' Objektvariable oder With-Blockvariable nicht festgelegt. Dieser befindet sich hier: loStart = .Columns(2).Find(what:=loMax, LookIn:=xlValues, lookat:=xlWhole).row
Das Maximum sucht er mir aber schon wunderbar...
AW: Suchen von Werten in Spalte und Spalte Wechseln
17.04.2019 11:40:45
Werten
Ich habe es schon lösen können, trotzdem danke!
Gerne u. Danke für die Rückmeldung.
17.04.2019 11:57:41
Werner
Hallo,
wohl die Spalte nicht angepasst.
Gruß Werner

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige