Thema Datum  Von Nutzer Rating
Antwort
16.08.2020 13:23:09 Thomas
NotSolved
Blau Werte in Spalte ersetzten anhand Bezeichnung in anderer Spalte
 16.08.2020 13:55:11 Werner
*****
NotSolved
16.08.2020 14:07:54 Gast58337
NotSolved
16.08.2020 14:32:33 Thomas
NotSolved
16.08.2020 15:34:30 Werner
NotSolved
16.08.2020 22:56:16 volti
NotSolved
16.08.2020 14:02:43 volti
NotSolved
17.08.2020 07:44:09 Thomas
NotSolved
25.10.2021 16:13:42 Gast52514
NotSolved
25.10.2021 16:24:17 Gast48880
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
16.08.2020 13:55:11		 Views:
615		 Rating:
     
Antwort:
  Ja
Thema:
Werte in Spalte ersetzten anhand Bezeichnung in anderer Spalte

Hallo,

z.B. so:

Option Explicit

Public Sub Ersetzen()
Dim i As Long, raErsetzen As Range

With Worksheets("Tabelle1")
    For i = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
        Select Case .Cells(i, "A")
            Case "Auto", "Baum", "Fahrrad"
                If raErsetzen Is Nothing Then
                    Set raErsetzen = .Cells(i, "B")
                Else
                    Set raErsetzen = Union(raErsetzen, .Cells(i, "B"))
                End If
            Case Else
        End Select
    Next i
    If Not raErsetzen Is Nothing Then
        raErsetzen = "A"
    End If
End With

Set raErsetzen = Nothing
End Sub

 

Gruß Werner

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.2020 13:23:09 Thomas
NotSolved
Blau Werte in Spalte ersetzten anhand Bezeichnung in anderer Spalte
 16.08.2020 13:55:11 Werner
*****
NotSolved
16.08.2020 14:07:54 Gast58337
NotSolved
16.08.2020 14:32:33 Thomas
NotSolved
16.08.2020 15:34:30 Werner
NotSolved
16.08.2020 22:56:16 volti
NotSolved
16.08.2020 14:02:43 volti
NotSolved
17.08.2020 07:44:09 Thomas
NotSolved
25.10.2021 16:13:42 Gast52514
NotSolved
25.10.2021 16:24:17 Gast48880
NotSolved