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

Zugriff auf Verknüpfung

Forumthread: Zugriff auf Verknüpfung

Zugriff auf Verknüpfung
24.02.2003 09:30:02
Thomas
Hallo,
habe ein Makro und es geht auch , nur es greift auf Werte zu ,und sollte eigentlich auf Verknüpfungen zugreifen.
Was habe ich falsch gemacht?
Wenn Januar in den Zellen steht , wandelt es auf Februar um.
Wenn c:\Daten 2003\Januar\Januar.xls steht geht es nicht.
Danke!


Sub Ersetzen()
Dim rngCell As Range
Dim strText As String
strText = "Januar"
For Each rngCell In Range("A1:Z150")
If rngCell.Value = strText Then
rngCell.Value = "Februar"
End If
Next rngCell
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Zugriff auf Verknüpfung
24.02.2003 10:13:03
Andreas Walter

Mit
If rngCell.Value = strText Then
testest Du, ob ganz genau die 7 Buchstaben "Januar"
in der Zelle sind.

Du musst kucken, ob strText innerhalb der Zeichenkette vorkommt

Range("A1:Z150").select
Selection.Replace What:="Januar", Replacement:="Februar", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

macht was Du willst - ohne Schleife

Tipp: benutz mal den Makro Recorder und zeichne
'Bearbeten' / 'Ersetzen' auf.

Anzeige
Re: Zugriff auf Verknüpfung
24.02.2003 10:30:33
Thomas

Hallo Andreas,
habe es so versucht leider geht es nicht
ich kenne mich auch nicht so gut aus und denke ich habe Deine Antwort falsch benutzt?!

Sub Ersetzen()
Dim rngCell As Range
Dim strText As String
strText = "Januar"
If rngCell.Value = strText Then
Range("A1:Z150").Select
Selection.Replace What:="Januar", Replacement:="Februar", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End If

End Sub

Könntest Du mir nochmal helfen?
Danke

Anzeige
Re: hat noch geklappt DankeSchön
24.02.2003 10:49:22
Thomas

Hallo Andreas,
habe es doch noch hingekriegt!

DankeSchön an Dich.
Thomas

;

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