Thema Datum  Von Nutzer Rating
Antwort
16.04.2025 10:35:03 Fritz
NotSolved
Blau Wert in einem anderen Register suchen und dann einen Wert umschreiben
 16.04.2025 21:32:50 ralf_b
NotSolved
17.04.2025 06:13:57 Gast2387
Solved
02.02.2026 04:49:56 QIrgXdQaWRVeSznb
NotSolved
02.02.2026 04:48:33 YtEIDjgfCOonfsTLoEOT
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
16.04.2025 21:32:50		 Views:
1043		 Rating:
     
Antwort:
  Ja
Thema:
Wert in einem anderen Register suchen und dann einen Wert umschreiben

dein code kann nicht funktionieren. versuchs mal damit. ohne Garantie

Sub Test()
    Dim c As Range
    Dim zeile As String
    Dim rngsuchwert As Range
    Dim sh As Worksheet
    Dim i As Long
    
    Set sh = Sheets("Sonstige")
    
    With Sheets("Daten (Mio €)")
        i = 1
        While sh.Cells(i, 1) <> ""
            Set c = .Range("f:f").Find(what:=sh.Cells(i, 1), LookIn:=xlValues, lookat:=xlWhole)
            If Not c Is Nothing Then
                zeile = c.Address
                Do
                    c.Offset(, 15) = "BA-Sonstige"
                    Set c = .Range("f:f").FindNext(c)
                Loop While Not c Is Nothing And c.Address <> zeile
            End If
       
            i = i + 1
        Wend
    End With
End Sub

 

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.04.2025 10:35:03 Fritz
NotSolved
Blau Wert in einem anderen Register suchen und dann einen Wert umschreiben
 16.04.2025 21:32:50 ralf_b
NotSolved
17.04.2025 06:13:57 Gast2387
Solved
02.02.2026 04:49:56 QIrgXdQaWRVeSznb
NotSolved
02.02.2026 04:48:33 YtEIDjgfCOonfsTLoEOT
NotSolved