Thema Datum  Von Nutzer Rating
Antwort
27.07.2016 10:49:12 Dominik
NotSolved
27.07.2016 11:06:19 Crazy Tom
*****
Solved
27.07.2016 11:11:12 Dominik
NotSolved
27.07.2016 12:35:51 Dominik
NotSolved
Rot Makro unendlich machen
 27.07.2016 15:58:38 Crazy Tom
*****
Solved
28.07.2016 07:15:31 Dominik
NotSolved

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
27.07.2016 15:58:38		 Views:
775		 Rating:
     
Antwort:
 Nein
Thema:
Makro unendlich machen

Hi

ungetestet

Sub InputBox_suche()
    Dim rngFound As Range
    Dim strSuche As String
    Dim strNeu As String
    Dim strFirst As String
    Dim wsBlatt As Worksheet
    strSuche = InputBox("2 Pol DC - Auto", , "2 Pol DC - Auto")
    strNeu = InputBox("M37_Ltg_180_7A_u_180_8A", , "M37_Ltg_180_7A_u_180_8A")
    If strSuche = "" Then Exit Sub
    For Each wsBlatt In ThisWorkbook.Worksheets
        Set rngFound = wsBlatt.Cells.Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
            If Not rngFound Is Nothing Then
                strFirst = rngFound.Address
                Do
                    rngFound.Offset(1, 0).Value = strNeu
                    Set rngFound = wsBlatt.Cells.FindNext(rngFound)
                Loop While Not rngFound Is Nothing And rngFound.Address <> strFirst
            End If
        Set rngFound = Nothing
    Next wsBlatt
End Sub

MfG Tom

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
27.07.2016 10:49:12 Dominik
NotSolved
27.07.2016 11:06:19 Crazy Tom
*****
Solved
27.07.2016 11:11:12 Dominik
NotSolved
27.07.2016 12:35:51 Dominik
NotSolved
Rot Makro unendlich machen
 27.07.2016 15:58:38 Crazy Tom
*****
Solved
28.07.2016 07:15:31 Dominik
NotSolved