Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

String in Zeilen suchen | Herbers Excel-Forum


Betrifft: String in Zeilen suchen von: Herbert
Geschrieben am: 28.10.2008 14:20:03

Hallo liebe Gemeinde

Ich habe mir vor längerer Zeit von Euch helfen lassen, um in der Spalte A rückwärts nach Text zu suchen.
In Spalte A kam bisher der jeweilige Name einer Abteilung (den suche ich) und laufende Nummern vor, klappt prima mit folgendem Code:

Sub a_String()
iRow = ActiveCell.Row
For i = iRow To 2 Step -1
Var = Cells(i, 1)
If VarType(Var) = vbString Then
teabt = Cells(iRow, 1).Offset(i - iRow, 0)
Exit For
End If
Next i
MsgBox teabt
End Sub



Aber alles wird anders: Jetzt gibt es eine Ausnahme in der Spalte: Es kann das Wort "Teil" vorkommen, wenn sich zwei Personen einen Posten teilen. Wie kann man in den Code diese Ausnahme einbinden um wieder den Abteilungsnamen auszulesen?

Vielen Dank im Voraus
Gruß Herbert

  

Betrifft: AW: String in Zeilen suchen von: JogyB
Geschrieben am: 28.10.2008 18:18:19

Sorry, aber aus Deinen Ausführungen wird nicht klar, wie eine Zelle mit dieser Ausnahme aussieht.

Gruss, Jogy


  

Betrifft: AW: String in Zeilen suchen von: fcs
Geschrieben am: 28.10.2008 18:23:58

Hallo Herbert,

müsste mit folgender zusätzlichen Prüfung funktionieren

Sub a_String()
  irow = ActiveCell.Row
  For i = irow To 2 Step -1
    Var = Cells(i, 1)
    If VarType(Var) = vbString Then
      'Prüfen, ob Wort "Teil" nicht im Zellinhalt vorkommt.
      If InStr(1, Cells(irow, 1), "Teil") = 0 Then
        teabt = Cells(irow, 1).Offset(i - irow, 0)
        Exit For
      End If
    End If
  Next i
  MsgBox teabt
End Sub


Gruß
Franz


  

Betrifft: AW: String in Zeilen suchen von: Herbert
Geschrieben am: 29.10.2008 06:36:59

Hallo ihr beiden

Klappt leider nicht, ich habe mal ein Beispiel hochgeladen mit dem Makro von fcs

Gruß Herbert


  

Betrifft: AW: String in Zeilen suchen- Sorry hier die Datei von: Herbert
Geschrieben am: 29.10.2008 06:38:43

Peinlich ;-(

Hier die Datei
https://www.herber.de/bbs/user/56355.xls


  

Betrifft: AW: String in Zeilen suchen- Sorry hier die Datei von: fcs
Geschrieben am: 29.10.2008 08:20:21

Hallo Herbert,

da hatte ich für die Prüfung auf "Teil" die falsche Variable für die Zeile eingebaut. Die Cells-Anweisung für das Auslesen der Abteilung kann man auch etwas vereinfachen.

Private Sub CommandButton1_Click()
irow = ActiveCell.Row
  For i = irow To 2 Step -1
    Var = Cells(i, 1)
    If VarType(Var) = vbString Then
      'Prüfen, ob Wort "Teil" nicht im Zellinhalt vorkommt.
      If InStr(1, Cells(i, 1), "Teil") = 0 Then
        teabt = Cells(i, 1)
        Exit For
      End If
    End If
  Next i
  MsgBox teabt
End Sub


Gruß
Franz


  

Betrifft: Viel Dank Franz o.T. von: Herbert
Geschrieben am: 29.10.2008 10:09:30




Beiträge aus den Excel-Beispielen zum Thema "String in Zeilen suchen"