Nach Wort (z.B "Datum" oder "Uhrzeit") in Zelle suchen!

  • Excel

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Novazizo|Sabrina.

    Nach Wort (z.B "Datum" oder "Uhrzeit") in Zelle suchen!

    Hallo Community,

    ich habe viele Spaltenüberschriften die ein Makro generiert.

    Ich möchte gerne wissen ob man einen Zelleninhalt auslesen und prüfen kann ob ein bestimmtes Wort vorhanden ist.

    In der Zelle kann aber das Wort an einer unbestimmten Stelle anfangen... also es ist nicht nur ein Wort in der Zelle!

    Wäre über gute Lösungsansätze dankbar!

    Mit freundlichen Grüßen

    Die No!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Novazizo|Sabrina“ ()

    Hallo petaod,

    Vielen Dank für deine Antwort,

    ich habe gesucht und das hier gefunden!

    Ich verstehe es so das die funktion einen Integerwert zurückgibt...

    Soll ich also nun prüfen ob beispielsweise "Datum" vorkommt und der InStr-Wert > 0 ist soll etwas passieren?

    Wäre das eine logische herangehensweise oder gibt es noch andere (bessere) möglichkeiten?

    Mit freundlichen Grüßen


    Soll ich also nun prüfen ob beispielsweise "Datum" vorkommt und der InStr-Wert > 0 ist soll etwas passieren?
    Ja.

    Quellcode

    1. If Instr("InDerZeile", "Datum") then
    2. mach was
    3. End If



    Wäre das eine logische herangehensweise oder gibt es noch andere (bessere) möglichkeiten?

    Ja. Es gibt noch andere aber wahrscheinlich keine schnelleren Möglichkeiten

    Hallo...

    ich habe es jetzt so gemacht...

    Spoiler anzeigen

    Visual Basic-Quellcode

    1. ' Datum übersetzen
    3. Private Sub CommandButton5_Click()
    5. ' ist der Wert für den Spaltendurchlauf
    6. Dim Spaltenzähler As Integer
    7. ' ist der Wert zum Ermitteln ob Wort vorhanden
    8. Dim Wert As Integer
    9. ' ist das Datumsformat
    10. Dim MyDate As Date
    11. ' ist der Wert zum Durchlauf von Zeilen
    12. Dim Zeile As Integer
    13. ' ist das Zeitformat
    14. Dim MyTime as Date
    16. ' Wertzuweisung
    17. Spaltenzähler = 1
    18. Zeile = 2
    20. ' Durchlauf Arbeitsblätter vom Zweiten bis Vorletzten
    21. For Sheetzähler = 2 To Sheets.Count - 1
    22. ' durchlauf solange Arbeitsblatt bis letzte gefüllte Spalte erreicht ist
    23. Do While Not Sheets(Sheetzähler).Cells(1, Spaltenzähler).Text = ""
    24. ' ermittel ob Wort "Datum" vorhanden ist
    25. Wert = InStr(1, Sheets(Sheetzähler).Cells(1, Spaltenzähler).Text, "Datum")
    26. ' Wenn Wort "Datum" vorhanden...
    27. If Wert > 0 Then
    28. ' ... dann durchlaufe alle Zeilen in bestimmter Spalte bis letzte gefüllte Zeile
    29. Do While Not Sheets(Sheetzähler).Cells(Zeile, Spaltenzähler).Text = ""
    30. ' Datumsformat wird mit Wert aus Zeile gefüllt und übersetzt
    31. MyDate = Format(Sheets(Sheetzähler).Cells(Zeile, Spaltenzähler).Text, "0000-00-00")
    32. ' Wert in Zeile wird mit Datumswert überschrieben
    33. Sheets(Sheetzähler).Cells(Zeile, Spaltenzähler) = MyDate
    34. ' Zeilenwert wird um eins erhöht
    35. Zeile = Zeile + 1
    36. ' Springe zu Schelifenanfang
    37. Loop
    38. ' erhöhe Sapltenwert um eins
    39. Spaltenzähler = Spaltenzähler + 1
    40. ' wenn nicht...
    41. Else
    42. ' erhöhe Spaltenwert um eins
    43. Spaltenzähler = Spaltenzähler + 1
    44. ' Ende Abfrage
    45. End If
    46. ' Wertzuweisung
    47. Zeile = 2
    48. ' Springe zu Schleifenanfang
    49. Loop
    50. ' Wertzuweisung
    51. Spaltenzähler = 1
    52. ' Erhöhe Sheetwert um eins
    53. Next Sheetzähler
    55. 'Zeit übersetzen___________________________________________________________________________________________________________
    58. ' Durchlauf Arbeitsblätter vom Zweiten bis Vorletzten
    59. For Sheetzähler = 2 To Sheets.Count - 1
    60. ' durchlauf solange Arbeitsblatt bis letzte gefüllte Spalte erreicht ist
    61. Do While Not Sheets(Sheetzähler).Cells(1, Spaltenzähler).Text = ""
    62. ' ermittel ob Wort "Uhrzeit" vorhanden ist
    63. Wert = InStr(1, Sheets(Sheetzähler).Cells(1, Spaltenzähler).Text, "Uhrzeit")
    64. ' Wenn Wort "Uhrzeit" vorhanden...
    65. If Wert > 0 Then
    66. Sheets(Sheetzähler).Select
    67. ' ... dann durchlaufe alle Zeilen in bestimmter Spalte bis letzte gefüllte Zeile
    68. Do While Not Sheets(Sheetzähler).Cells(Zeile, Spaltenzähler).Text = ""
    69. ' Zeitformat wird mit Wert aus Zeile gefüllt und übersetzt
    70. MyTime = Format(Sheets(Sheetzähler).Cells(Zeile, Spaltenzähler).Text, "00:00:00")
    71. ' Wert in Zeile wird mit Zeitwert überschrieben
    72. Sheets(Sheetzähler).Cells(Zeile, Spaltenzähler) = MyTime
    73. ' Zeitwert wird in "deutsches" Format übersetzt
    74. Sheets(Sheetzähler).Cells(Zeile, Spaltenzähler).NumberFormat = "hh:mm:ss;@"
    75. ' Zeilenwert wird um eins erhöht
    76. Zeile = Zeile + 1
    77. ' Springe zu Schleifenanfang
    78. Loop
    79. ' erhöhe Sapltenwert um eins
    80. Spaltenzähler = Spaltenzähler + 1
    81. ' wenn nicht...
    82. Else
    83. ' erhöhe Spaltenwert um eins
    84. Spaltenzähler = Spaltenzähler + 1
    85. ' Ende Abfrage
    86. End If
    87. ' Wertzuweisung
    88. Zeile = 2
    89. ' Springe zu Schleifenanfang
    90. Loop
    91. ' Wertzuweisung
    92. Spaltenzähler = 1
    93. ' Erhöhe Sheetwert um eins
    94. Next Sheetzähler
    95. ' End Anweisung
    96. End Sub


    falls jemand Verbesserungsvorschläge habt nehme ich die gerne an...

    Vielen Dank für die Hilfe!!!

    MfG
    Die No!

Facebook
Telefonspende