VBA: Zeile finden und als MagBox ausgeben

Hi zusammen,

ich ziehe mir jeden Tag ein File, dass immer unterschiedlich viele Zeile hat. Ich bräuchte nun ein Skript, dass mir die Zeilennummer ausspuckt, in der der Wert "monat" vorkommt. Gerne als msgbox :)

Danke! Greetz

Answer 1

[blablub7]

Sub zeilennummer()
  Dim i as Integer
  Dim suchspalte as String
  suchspalte = "A"
  For i = 1 To ActiveSheet.UsedRange.Rows.Count
    If Range(suchspalte & i).Value = "monat" Then
      MsgBox "monat steht in Zeile " & i
      Exit Sub
    End if
  Next
  MsgBox "monat wurde nicht gefunden"
End Sub

Die Suchspalte musst du noch anpassen, bei mehreren Suchspalten muss man die If-Abfrage noch erweitern.

Hab das grad nur hingetippt und nicht getestet, hab hier grad kein Excel zur Verfügung.

Comments

[B0MBEN]

top! DANKE!

Answer 2

[aczero]

http://stackoverflow.com/questions/17860618/how-do-i-find-a-specific-string-in-one-of-many-text-log-files-using-vba

versuch das mal