Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro: Wort ersetzen bis letzte Zeile von...

Makro: Wort ersetzen bis letzte Zeile von...
Julia
Hallo,
ich habe ein Makro geschrieben welches mir in der Spalte I das Wort "Fixed" durch "Behoben" ersetzt.
Funktioniert auch wunderbar.

Sub fixed_behoben()
Sheets("Datenbasis").Select
ActiveWindow.SmallScroll ToRight:=-3
Columns("I:I").Select
Selection.Replace What:="Fixed", Replacement:="Behoben", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets("Fälligkeit").Select
End Sub


Mein Problem ist allerdings folgendes:
Dort wo nichts steht soll "nicht erledigt" stehen.
Aber wenn ich leere Zellen durch "nicht erledigt" ersetzte füllt er mir die ganze Spalte wo nichts steht mit "nicht erledigt" auf.
Er soll dies aber nur machen bis zum letzten Eintrag von Spalte A.
D.h. wenn in Spalte A insgesamt 50 Einträge sind. Dann soll er in Spalte I auch nur die ersten 50 prüfen. Und hier dann Fixed durch Behoben und leere Zellinhalte durch "nicht erledigt" ersetzten

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro: Wort ersetzen bis letzte Zeile von...
30.06.2009 11:17:32
Jogy
Hi.
Mach es mal so (und gewöhne Dir die Selektiererei ab):

Sub fixed_behoben()
With Sheets("Datenbasis").Range("I1:I" & Sheets("Datenbasis").Cells(Rows.Count, 1).End(xlUp) _
.Row)
.Replace What:="Fixed", Replacement:="Behoben", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
' Fehlerbehandlung aus, falls keine Leerzellen vorhanden
On Error Resume Next
.SpecialCells(xlCellTypeBlanks).Value = "nicht erledigt"
On Error GoTo 0
End With
Sheets("Fälligkeit").Activate
End Sub


Gruss, Jogy

Anzeige
Danke klappt prima ;)
30.06.2009 11:32:59
Julia
Danke klappt prima ;)

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige