...Rows.Count..

Question

Hallo,

ich habe eine Befehlszeile
...
x = Cells(Rows.Count, 2).End(xlUp).Row
...
Ich möchte nun aber nicht die letzte beschriebene Reihe in Spalte B sondern ich möchte die Zeilennummer in deren Spalte der Eintrag "Gesamt" steht. Hat jemand einen Tipp??
Gruß
Andreas

Answer 1

Hallo Andreas,

eine Möglichkeit, sicher nicht die optimalste, wäre:

c = WorksheetFunction.Match("Gesamt", Range("B:B"), 0)

Gruß
Rrainer

Answer 2

Hallo Rainer,
vlt. nicht optimal, aber das löst mein Problem erst einmal. Danke.
A.

Answer 3

hi all ^^

zeile 1 Überschriften

zeile 1 wird nach Gesamt durchsucht

und von dessen spalte das ende ermittelt

gruss nighty

ActiveSheet.Cells(Rows.Count, Rows("1:1").Find(What:="Gesamt", LookAt:=xlPart, SearchOrder:=xlByRows).Column).End(xlUp).Row

Answer 4

Hi nighty,
danke für den Code, sieht eigentlich "gut" aus bringt aber Fehler "Objektvariable nicht festgelegt"...???
Habs an folgender Testdatei probiert:

Name
wagner, k
wagner, a
wimmler, l
woo, s
wurschi, h
zapfe, j
zastrau, j
zeisberg, a
zeisse, a
zeisse, w
zscheile, r
Gesamt

kdlruem


kdhjsg
kdshz

lfjzr

56778
e46g7
......
Kannst du noch mal gucken woran das liegen kann? Danke und Gruß
Andreas

Answer 5

hi :-)

welcher Bereich soll durchsucht werden ?
ausgehend von mindestens 1 treffer ,reicht die Syntax

gruss nighty

Answer 6

Hallo nighty,

sorry, in meinem ersten Beitrag hatte ich die Formel auf die Spalte B ausgerichtet. Das kleine Testbeispiel besteht nur aus einer Spalte,die auch durchsucht werden soll, in diesem Fall also "A".
A.

Answer 7

hi Ahorn ^^

spalte a durchsuchen auf

"Gesamt"
oder
"Gesamt" in "Gesamt xxx"

was soll geschehen bei 0 fund ?
warum nicht gleich das ende der spalte a ermitteln ?

gruss nighty

Answer 8

Hallo,
Spalte "A" soll auf "Gesamt" durchsucht werden und die entsprechende Reihe angezeigt werden. Tabellenende geht nicht, da "Gesamt" vor dem Tabellenende steht.
Gruß

Answer 9

selber an eine lösung hinarbeiten? nie dran gedacht, oder?

Answer 10

hi Ahorn ^^

vielleicht so ?

gruss nighty

Sub Ahorn()
Dim Sobj As Object
Dim Ansage As String
Set Sobj = Columns("A:A").Find(What:="Gesamt", LookAt:=xlPart, SearchOrder:=xlByColumns)
If Not Sobj Is Nothing Then
ZielZeile = Sobj.Row
Else
Ansage = MsgBox("Gesamt not found !", , "Fehlermeldung !")
End If
End Sub

variable ZielZeile beinhaltet die Zeilennummer des treffers