Thema Datum  Von Nutzer Rating
Antwort
16.08.2011 12:04:28 OpelKillah
Solved
Blau Makro soll alle Zellen durchsuchen und bestimmtes Wort in Zelle schreiben
 17.08.2011 21:22:47 Silvan
Solved
19.08.2011 09:07:27 Gast61772
Solved
19.08.2011 09:08:02 OpelKillah
Solved

Ansicht des Beitrags:
Von:
Silvan		 Datum:
17.08.2011 21:22:47		 Views:
1124		 Rating:
     
Antwort:
 Nein
Thema:
Makro soll alle Zellen durchsuchen und bestimmtes Wort in Zelle schreiben

Hallo OpelKillah

So etwas?

Sub Text()
    Dim intLetzteZeile As Integer
    Dim intStartZeile As Integer
    Dim intQuellSpalte As Integer
    Dim intZielSpalte As Integer
    Dim i As Integer
    Dim strSuchText As String
    Dim strZielText As String
    
    'Suchtext festlegen
    strSuchText = "Silvan"
    strZielText = "Hurra"
    
    'Start- und Endzeile festlegen
    intStartZeile = 2
    intLetzteZeile = ActiveSheet.Cells.SpecialCells(xlLastCell).Row
    
    'Quell- und Zielspalte festlegen
    '1=Spalte A, 2=Spalte B usw.
    intQuellSpalte = 2
    intZielSpalte = 1
    
    For i = intStartZeile To intLetzteZeile
        If Cells(i, intQuellSpalte).Value = strSuchText Then
            Cells(i + 1, intZielSpalte).Value = strZielText
        End If
    Next
End Sub

Grüss Silvan

 

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
16.08.2011 12:04:28 OpelKillah
Solved
Blau Makro soll alle Zellen durchsuchen und bestimmtes Wort in Zelle schreiben
 17.08.2011 21:22:47 Silvan
Solved
19.08.2011 09:07:27 Gast61772
Solved
19.08.2011 09:08:02 OpelKillah
Solved