Thema Datum  Von Nutzer Rating
Antwort
27.07.2016 10:49:12 Dominik
NotSolved
Blau Makro unendlich machen
 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
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 11:06:19		 Views:
775		 Rating:
     
Antwort:
 Nein
Thema:
Makro unendlich machen

Hi

ausgehend von dem Code aus dem anderen Threat

Sub InputBox_suche()
    Dim rngFound As Range
    Dim rngBereich As Range
    Dim strSuche As String
    Dim strNeu As String
    Dim strFirst As String
    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
    Set rngBereich = Tabelle3.Range("A1:J200") 'Tabellenname und Suchbereich anpassen
    Set rngFound = rngBereich.Find(strSuche, LookIn:=xlValues, lookat:=xlWhole)
        If Not rngFound Is Nothing Then
            strFirst = rngFound.Address
            Do
                rngFound.Offset(1, 0).Value = strNeu
                Set rngFound = rngBereich.FindNext(rngFound)
            Loop While Not rngFound Is Nothing And rngFound.Address <> strFirst
        End If
    Set rngFound = Nothing
    Set rngBereich = Nothing
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
Blau Makro unendlich machen
 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
27.07.2016 15:58:38 Crazy Tom
*****
Solved
28.07.2016 07:15:31 Dominik
NotSolved