Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
996to1000
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
996to1000
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilennummer per Code ausgeben.

Zeilennummer per Code ausgeben.
29.07.2008 18:32:00
Peter
Liebe Excel-Freunde,
ich habe nachfolgende Frage schon einmal gestellt und beantwortet bekommen. Jetzt aber noch einmal und zwar mit einer Einschränkung:
Ich habe eine Arbeitsmappe mit 2 worksheets (tab1 & tab2).
In tab1 habe ich in "G3" einen Wert, der in einer aufsteigend sortierten Tabelle in tab2 vorkommt.
Ich möchte per VBA-Code wissen, in welcher Zeile von tab2 der Wert steht.
Da ich mich fast ausschließlich in tab1 austobe, möchte ich aus bestimmten Gründen nicht (und das ist die eingangs erwähnte Einschränkung), dass während der Ausführung des Codes tab2 aktiviert wird.
Ich hoffe, mein Vorhaben ist trotzdem möglich.
Die gefundene Zeilennummer will ich im weiteren Verlauf des Makros als Variable verwenden.
Danke für Eure Hilfe.
Gruß,
Peter F.

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilennummer per Code ausgeben.
29.07.2008 18:56:13
Herbert
Hi,
ohne jegliche Fehlerbehandlung:

Sub Zeile()
Dim r As Long
r = Sheets("tab2").Cells.Find([g3]).Row
MsgBox r
End Sub


mfg Herbert

AW: Zeilennummer per Code ausgeben.
29.07.2008 19:31:00
Peter
Hallo Herbert,
prima, danke ! So hatte ich mir das vorgestellt.
Gruß,
Peter

AW: Zeilennummer per Code ausgeben.
29.07.2008 19:22:00
Erich
Hallo Peter,
wenn in Tab2 in Spalte A gesucht werden soll: 

Sub tst()
Dim varZ As Variant, lngZ As Long
varZ = Application.Match(Cells(3, 7), Sheets("Tabelle2").Columns(1), 1)
If IsNumeric(varZ) Then lngZ = varZ
End Sub

Wenn wirklich immer sicher ist, dass der gesuchte Wert vorkommt,
kannst du das auch kürzer (ohne die Variant-Variable) schreiben:


Sub tst()
Dim lngZ As Long
lngZ = Application.Match(Cells(3, 7), Sheets("Tabelle2").Columns(1), 1)
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Zeilennummer per Code ausgeben.
29.07.2008 19:33:04
Peter
Hallo Erich,
Herbert war etwas schneller, aber dein Code funktioniert genau so gut.
Danke für die Mühe.
Gruß,
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige