Thema Datum  Von Nutzer Rating
Antwort
10.08.2017 02:09:34 abmnet
NotSolved
Blau Werte ändern
 10.08.2017 21:14:54 Ben
NotSolved
14.08.2017 07:59:00 Gast84920
NotSolved
14.08.2017 12:35:31 Ben
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
10.08.2017 21:14:54		 Views:
623		 Rating:
     
Antwort:
  Ja
Thema:
Werte ändern

Hallo,

dieser Code kann hilfreich sein:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim rngFnd As Range
    Dim iRow As Integer
    Dim sName As String, sStatus As String
    Set rng = Target.Worksheet.Range("A1:B1")
    
    If Not Intersect(Target, rng) Is Nothing Then
        sName = rng.Cells(1, 1)
        sStatus = rng.Cells(1, 2)
        With Tabelle2.Columns(1)
            Set rngFnd = .Find(what:=sName)
            Do Until rngFnd Is Nothing
                If rngFnd.Row > iRow Then
                    iRow = rngFnd.Row
                    rngFnd.Offset(ColumnOffset:=1).Value = sStatus
                    Set rngFnd = .FindNext(rngFnd)
                Else
                    Set rngFnd = Nothing
                End If
            Loop
        End With
    End If
End Sub

Der Code muss im VBA-Editor der Tabelle 1 zugewiesen werden.

LG, Ben

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
10.08.2017 02:09:34 abmnet
NotSolved
Blau Werte ändern
 10.08.2017 21:14:54 Ben
NotSolved
14.08.2017 07:59:00 Gast84920
NotSolved
14.08.2017 12:35:31 Ben
NotSolved