Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
384to388
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
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erste Zeile mit einer Zahl ermitteln

Erste Zeile mit einer Zahl ermitteln
23.02.2004 19:14:49
Alex K.
Hallo,
ich habe in der Spalte A in den ersten Zeilen Text stehen. Ab Zeile x folgen nur noch Zahlen vom Typ Double, unsortiert. Nun möchte ich schnell (ohne Schleife) in VBA ermitteln, ab welcher Zeilennummer die Zahlen beginnen.
Wie gesagt, ohne Schleife für die Abfrage der einzelnen Zeilen, dass bekomme ich selber hin.
Beispeil:

Spalte A
Z1   Überschrift
Z2   Unterschüberschrift
Z3   Bermerkungen
Z4   -1000
Z5   100,01
Z6   -10001

Danke für euere Hilfe
Alex

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erste Zeile mit einer Zahl ermitteln
23.02.2004 19:36:39
Josef Ehrensberger
Hallo Alex!
Z.B:


Sub test()
Dim rng As Range
Set rng = Range("A:A").SpecialCells(xlCellTypeConstants, 1)
Debug.Print rng(1).Address
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp


Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)


Anzeige
AW: Erste Zeile mit einer Zahl ermitteln
23.02.2004 19:40:31
Bert
Option Explicit

Sub erste_Zahl()
Dim z As Long
z = Columns(1).SpecialCells(xlCellTypeConstants, 1).Cells(1).Row
MsgBox z
End Sub

Bert
Klasse, danke euch beiden oT
23.02.2004 19:48:19
Alex K.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige