Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Werte finden und ersetzen

Werte finden und ersetzen
10.10.2005 12:35:35
Sebastian
HI zusammen hoffe ihr habt einen guten Start in die Woche. Ich habe folgendes Problem. Vielleicht kann mir jemand weiterhelfen.
Also ich will in einer Tabelle die aus drei Spalten besteht folgenden Zelleneintrag "------------------" finden und in der Zelle eins runter und eins links davon den Wert "SUM" schreiben. Das alles will ich irgendwie per Makro laufen lassen.

Leider kenn ich mich mit VBA nicht so gut aus. Hoffe es kann mir jemand weiterhelfen. Vielen Dank.
Grüße Sebastian
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte finden und ersetzen
10.10.2005 12:59:32
Dominic
Hallo Sebastian,
So:

Sub finden()
Dim a As Long
Dim b As Integer
For a = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
For b = 1 To 3
If Cells(a, b).Value = "------------------" Then Cells(a + 1, b + 1).Value = "SUM"
Next b
Next a
End Sub

Gruß
Dominic
Anzeige
AW: Werte finden und ersetzen
10.10.2005 13:43:40
Sebastian
Hi Dominic, vielen Dank für deine Hilfe. Funktioniert einwandfrei. Wünsch dir noch einen schönen Tag.
Gruss Sebastian
Danke fürs Rückmeldung!
10.10.2005 13:50:14
Dominic
Gruß
Dominic
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige