Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
220to224
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
220to224
220to224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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.

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige