Excel Makro: Eintrag finden, Wert ersetzen

Computer: Software & Programmierung Office Software
1

Hallo,
da ich gestern so effektive Hilfe erhalten habe, noch ne Frage im „Nachklapp“:
Ausgangspunkt: Tabelle mit monatlichen Berechnungen, Inhalte werden über Makros eingefügt, im Tabellenblatt erfolgen Berechnungen mit Formeln;
vorhanden sind Spalten A bis AS (nicht alle Zellen gefüllt)
Die jeden Monat neu eingefügten Daten sollen wie folgt bereinigt werden:

Wenn in Spalte „G“ Eintrag „xy“, dann in dieser Zeile in den Spalten V bis Z Wert löschen und ersetzen durch 0,00.
Der Ausgabewert beruht auf einer sverweis-Formel, es ist also immer ein Eintrag für die Zelle hinterlegt, gelöscht werden soll aber nicht, wenn der Eintrag „#NV“ ist, da ich den Fehlerhinweis brauche.

Ich hatte das Ganze mit „Filter“ und Aufzeichnung des Makrorekorders gemacht, jeden Monat sind aber die Einträge anders, so dass das aufgezeichnete Makros Fehler produziert.
Ich hoffe, meine Angaben sind nicht zu wirr, eine Beispieldatei könnte ich ggf. versenden.
Ich danke schon mal allen, die Excel beherrschen und ihr Wissen zur Verfügung stellen!
petsch

2

Wenn in Spalte „G“ Eintrag „xy“, dann in dieser Zeile in den
Spalten V bis Z Wert löschen und ersetzen durch 0,00.
Der Ausgabewert beruht auf einer sverweis-Formel, es ist also
immer ein Eintrag für die Zelle hinterlegt, gelöscht werden
soll aber nicht, wenn der Eintrag „#NV“ ist, da ich den
Fehlerhinweis brauche.

Hallo Petsch,

vielleicht so:

Sub Loesch()
Dim Zei As Long, Spa As Long
For Zei = 2 To Cells(Rows.Count, 7).End(xlUp).Row
 If Cells(Zei, 7).Value = "xy" Then
 For Spa = 22 To 26
 If Cells(Zei, Spa).Text "#NV" Then
 Cells(Zei, Spa).Value = Format(0, "0.00")
 End If
 Next Spa
 End If
Next Zei
End Sub

Gruß
Reinhard