Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Verknüpfungen durch Werte ersetzen

Forumthread: Verknüpfungen durch Werte ersetzen

Verknüpfungen durch Werte ersetzen
22.02.2009 13:18:26
Horst
Hallo Excel-Freunde!
Wie kann ich bei folgendem Makro angeben, dass nur Verknüpfungen ab der Spalte AA (Spalte 30) durch Inhalte ersetzt werden. Alle anderen Verknüpfungen sollen erhalten bleiben.

Sub update()
Dim i As Long
For i = 1515 To ActiveSheet.Cells(Rows.Count, 30).End(xlUp).Row
If ActiveSheet.Cells(i, 30).Value 


Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Verknüpfungen durch Werte ersetzen
22.02.2009 13:26:28
Ramses
Hallo
Ersetze die Zeile
ActiveSheet.Rows(i).Value = ActiveSheet.Rows(i).Value
durch
ActiveSheet.Range(cells(i,30),cells(i,cells(i,columns.count).end(xltoleft).column)).Value = ActiveSheet.Range(cells(i,30),cells(i,cells(i,columns.count).end(xltoleft).column)).Value
Sollte dann tun.
Gruss Rainer
Anzeige
AW: Verknüpfungen durch Werte ersetzen
22.02.2009 13:37:22
Horst
Besten Dank!
Interessanterweise macht das Makro das gleiche, wenn ich statt "xlToLeft" "xlToRight" einsetze. Worin liegt der konzeptionelle Unterschied?
ActiveSheet.Range(Cells(i, 30), Cells(i, Cells(i, Columns.Count).End(xlToRight).Column)).Value = _
ActiveSheet.Range(Cells(i, 30), Cells(i, Cells(i, Columns.Count).End(xlToRight).Column)).Value
Anzeige
AW: Verknüpfungen durch Werte ersetzen
22.02.2009 13:44:59
Ramses
Hallo
Schau mal in der Hilfe oder gib mal das im Direktfenster ein
Debug.print Cells(i,1).end(xltoleft).column
Debug.print Cells(i,1).end(xltoright).column
Gruss Rainer

Forumthreads zu verwandten Themen

Anzeige