Thema Datum  Von Nutzer Rating
Antwort
07.05.2022 16:38:49 Mirko
NotSolved
07.05.2022 20:09:48 ralf_b
NotSolved
07.05.2022 21:11:07 mirko
NotSolved
08.05.2022 10:31:58 ralf_b
NotSolved
Rot Macro laufen lassen wenn bestimmtes wort über der Tabelle gefunden wird
07.05.2022 21:23:11 Gast51354
NotSolved
07.05.2022 21:30:32 Gast51354
NotSolved
07.05.2022 22:24:29 mirko
NotSolved
07.05.2022 22:41:03 Gast97841
NotSolved
08.05.2022 06:53:05 Gast25005
NotSolved

Ansicht des Beitrags:
Von:
Gast51354
Datum:
07.05.2022 21:23:11
Views:
606
Rating: Antwort:
  Ja
Thema:
Macro laufen lassen wenn bestimmtes wort über der Tabelle gefunden wird

Da gibt es unterschiedliche Möglichkeiten anzusetzen; alle funktionieren jedoch per Schleife (wie auch sonst...?).

' Bestimme Bereich: B1:%1
' - % ist dabei die Unbekannte, welche per Range.End(xlToLeft) bestimmt wird
Set rngHeaderHelpers = wks.Range("B1", wks.Cells(1, wks.Columns.Count).End(xlToLeft))

' falls wir links von Spalte B landen, gibt es keinen Inhalt in der Zeile1
If rngHeaderHelpers.Column < 2 _
    Then Exit Sub

For Each rngCell in rngHeaderHelpers.Cells

    'Sonderzeichen1?
    If InStr(rngCell.value, "+") > 0 Then
        Call Funktion1(rngCell)
    End If

    'Sonderzeichen2?
    If InStr(rngCell.value, "*") > 0 Then
        Call Funktion2(rngCell)
    End If

    'Sonderzeichen3?
    If InStr(rngCell.value, "~") > 0 Then
        Call Funktion3(rngCell)
    End If

Next

Code ungetestet! (Freihand getippt)


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.05.2022 16:38:49 Mirko
NotSolved
07.05.2022 20:09:48 ralf_b
NotSolved
07.05.2022 21:11:07 mirko
NotSolved
08.05.2022 10:31:58 ralf_b
NotSolved
Rot Macro laufen lassen wenn bestimmtes wort über der Tabelle gefunden wird
07.05.2022 21:23:11 Gast51354
NotSolved
07.05.2022 21:30:32 Gast51354
NotSolved
07.05.2022 22:24:29 mirko
NotSolved
07.05.2022 22:41:03 Gast97841
NotSolved
08.05.2022 06:53:05 Gast25005
NotSolved