Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Erste Zeile mit Wert finden

Erste Zeile mit Wert finden
15.09.2016 09:06:52
Dhömas
Guten Morgen zusammen,
und zwar hab ich eine .txt-Datei eingelesen die sowohl Strings als auch Werte beinhaltet. In den ersten paar Zeilen stehen Strings und ab dann folgen die Werte in einem großen Block. Nun bräuchte ich die Adresse der Zelle von ersten Zeile wo die Werte beginnen.
Hatte da an "IsNumeric" gedacht, finde da aber irgendwie keinen Anfang für.
Vielen Dank schon mal
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW:z.B mit INDEX() und VERGLEICH() ...
15.09.2016 09:30:21
...
Hallo,
... wenn Daten in Spalte D, dann so: =VERGLEICH(1;INDEX(ISTZAHL(D1:D99)*1;);)
Gruß Werner
.. , - ...
AW: AW:z.B mit INDEX() und VERGLEICH() ...
15.09.2016 09:33:15
Dhömas
Morgen Werner,
oh bitte Verzeih! Ich wollte das ganze mit VBA realisieren und nicht im Excel als Formel *schäm*
Gruß Thomas
AW: VBA-Lösung gesucht, thread offen owT
15.09.2016 09:39:31
...
Gruß Werner
.. , - ...
Anzeige
AW: AW:z.B mit INDEX() und VERGLEICH() ...
15.09.2016 09:50:32
Werner
Hallo,
probier mal:
Public Sub aaa()
Dim rngBereich As Range
Dim rngZelle As Range
Set rngBereich = Sheets("Tabelle1").Range("A:A")
For Each rngZelle In rngBereich
If rngZelle  "" Then
If IsNumeric(rngZelle) Then
MsgBox rngZelle.Address
Exit For
End If
End If
Next rngZelle
End Sub
Tabellenblatt und Bereich mußt du an deine Bedürfnisse anpassen.
Gruß Werner
Anzeige
AW: AW:z.B mit INDEX() und VERGLEICH() ...
15.09.2016 10:13:55
UweD
Hallo
dann nimm die Formel doch in VBA rein..
    Dim Zeile As Long
Zeile = Application.Evaluate("=Match(1, Index(IsNumber(D:D) * 1, 0), 0)")
Gruß UweD
AW: AW:z.B mit INDEX() und VERGLEICH() ...
15.09.2016 11:12:42
Dhömas
Hi,
ich werde mich später mal daran versuchen! Vielen Dank euch schon mal :)
Gruß
Anzeige
AW: Erste Zeile mit Wert finden
15.09.2016 09:57:16
JoWE
Hallo,
vllt. so?
Sub findeZahl()
Dim ze As Object
For Each ze In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
On Error Resume Next
If IsNumeric(ze * 1) Then
MsgBox ze.Address
Exit Sub
End If
Next
End Sub

Gruß
Jochen
AW: Erste Zeile mit Wert finden über VBA
15.09.2016 12:43:08
Daniel
Hi
die erste Zelle mit Zahl bekommst du mit
Set Zelle = Cells.SpecialCells(xlcelltypeconstants, 1)(1)
das kannst du natürlich auch nur auf eine Spalte anwenden:
Set Zelle = Columns(1).SpecialCells(xlcelltypecontants, 1)(1)
die Zeilennummer kannst du dann mit .Row abfragen.
Zeile = Columns(1).SpecialCells(xlcelltypeconstants, 1).Row
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Erste Zeile mit Wert finden in Excel


Schritt-für-Schritt-Anleitung

Um die erste Zeile mit Wert in Excel zu finden, kannst du entweder VBA oder Formeln nutzen. Hier ist eine einfache Anleitung, wie du mit VBA vorgehst:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und dann auf Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden Code in das Modul:

    Public Sub findeErsteZahl()
       Dim rngBereich As Range
       Dim rngZelle As Range
       Set rngBereich = Sheets("Tabelle1").Range("A:A") ' Anpassen je nach Bedarf
       For Each rngZelle In rngBereich
           If rngZelle <> "" Then
               If IsNumeric(rngZelle) Then
                   MsgBox rngZelle.Address
                   Exit For
               End If
           End If
       Next rngZelle
    End Sub
  4. Schließe den VBA-Editor und führe das Makro aus, um die Adresse der ersten Zelle mit Wert zu erhalten.


Häufige Fehler und Lösungen

  • Fehler: "Typenübereinstimmung" beim Ausführen des Codes.

    • Lösung: Überprüfe, ob du die richtigen Datentypen verwendest. Stelle sicher, dass du nur numerische Werte in der angegebenen Spalte hast.
  • Fehler: Das Makro findet keine Werte.

    • Lösung: Vergewissere dich, dass der Bereich, den du in Set rngBereich angibst, korrekt ist und tatsächlich Werte enthält.

Alternative Methoden

Wenn du die erste Zelle mit Wert finden möchtest, kannst du auch die folgende Formel in Excel verwenden:

=VERGLEICH(1;INDEX(ISTZAHL(A:A)*1;0);0)

Diese Formel gibt die Zeilennummer der ersten Zelle zurück, die einen Wert enthält. Du kannst sie in eine beliebige Zelle eingeben, um das Ergebnis zu sehen.


Praktische Beispiele

Hier sind einige Beispiele, wie du die Methoden anwenden kannst:

  1. VBA-Methode:

    • Nutze den oben genannten VBA-Code, um die erste Zahl in der Spalte A zu finden.
  2. Formelmethode:

    • Verwende die Formel =VERGLEICH(1;INDEX(ISTZAHL(A:A)*1;0);0) in einer Zelle, um die Zeilennummer der ersten Zelle zu erhalten, die einen Wert enthält.

Tipps für Profis

  • Wenn du mit großen Datenmengen arbeitest, kann die Verwendung von VBA effizienter sein als Formeln, da sie schneller ausgeführt werden können.
  • Überlege, die Daten in einer Tabelle zu formatieren. Das macht es einfacher, Bereiche dynamisch zu referenzieren.

FAQ: Häufige Fragen

1. Wie kann ich die erste Zelle mit Wert in einer bestimmten Spalte finden? Um die erste Zelle mit Wert in einer bestimmten Spalte zu finden, kannst du den VBA-Code anpassen, indem du die Range entsprechend änderst (z.B. Range("B:B") für Spalte B).

2. Ist es notwendig, VBA zu nutzen, oder kann ich auch nur Formeln verwenden? Du kannst auch nur Formeln verwenden, aber VBA bietet mehr Flexibilität und ist oft schneller bei großen Datenmengen.

Beliebteste Forumthreads (12 Monate)

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