Spalteninhalte durch VBA ändern

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen!!!

In einer Exceltabelle habe ich Spalte mit den jeweiligen Zelleninhalten „Wahr“ und „Falsch“.
Diese Inhalte möchte ich nun durch einen Code ändern. Allen Zellen, in denen „Wahr“ steht sollen in „intern“ umgewandelt werden.
Der Code, den ich dafür geschrieben habe funktioniert aber leider nicht. :frowning:

Range(„C1“).Select

Do While ActiveCell „“
If ActiveCell.Value = „WAHR“ Then
ActiveCell.FormulaR1C1 = „intern“
End If
ActiveCell.Offset(1, 0).Activate
Loop

Wer sieht meinen Fehler.

Schonmal danke und liebe Grüße

Claudia

#2

hallo claudia,

ich würde am ende der daten in eine spalte „END“ schreiben :smile:

Dim zeile As Long
Do Until Cells(zeile, 1) = „END“

If Cells(zeile, 1).Value = „Wahr“ Then
Cells(zeile, 1).Value = „Intern“
End If

zeile = zeile + 1
Loop

gruß

rasta

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]