HERBERS Excel-Forum - das Archiv
Thema: Zellenverknüpfung (nicht kopieren)
-
statt 1 nimm 4... oTrobert
-
AW: statt 1 nimm 4... oTPeter
-
probier mal sorobert
-
AW: probier mal soPeter
-
wer bitte ist Hans? :-)robert
Zellenverknüpfung (nicht kopieren)
Peter
Hallo zusammen
Ich suche einen VBA-Code der mir ab F4 eine Zellenverknüpfung zur Nachbarzelle E4 erstellt und dies dann runter bis zur letzten benutzten Zeile. Kopieren funktioniert darum nicht, weil z.T. Zellen in der Spalte E leer sind und so mit kopieren eine Zelleninhaltsverschiebung passiert.
Vielen Dank für jede Hilfe
Viele Grüsse
Peter
AW: Zellenverknüpfung (nicht kopieren)
Peter
Hallo,
ich glaub ich hab's:
Sub test()
Dim n
For n = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(n, 6).Value = Cells(n, 5).Value
Next
End Sub
Viele Grüsse
Peter
AW: Zellenverknüpfung (nicht kopieren)
Peter
Kann mir jemand den offset zeigen?
Danke und viele Grüsse,
Peter
statt 1 nimm 4... oT
robert
AW: statt 1 nimm 4... oT
Peter
Hallo
Danke für die Antwort, das habe ich jedoch schon ausprobiert, funktioniert leider nicht.
Was könnte ich sonst noch ausprobieren?
Gruss,
Peter
probier mal so
robert
Sub test()
Dim n
For n = 4 To Cells(Rows.Count, 5).End(xlUp).Row
Cells(n, 6).Value = Cells(n, 5).Value
Next
End Sub
Gruß
robert
AW: probier mal so
Peter
Hallo Hans,
Ja das funktioniert bestens, vielen Dank und,
viele Grüsse
Peter
wer bitte ist Hans? :-)
robert
AW: wer bitte ist Hans? :-)
Peter
Sorry Robert,
Danke Dir für Deine Hilfe, funktioniert super, und jetzt verstehe ich auch die Logik, und verstehe nun auch eine andere Prozedur mit einem anders designten Offset :-)
Grüsse,
Peter
Zellenverknüpfung (nicht kopieren)
Peter
Hallo zusammen
Ich suche einen VBA-Code der mir ab F4 eine Zellenverknüpfung zur Nachbarzelle E4 erstellt und dies dann runter bis zur letzten benutzten Zeile. Kopieren funktioniert darum nicht, weil z.T. Zellen in der Spalte E leer sind und so mit kopieren eine Zelleninhaltsverschiebung passiert.
Vielen Dank für jede Hilfe
Viele Grüsse
Peter
AW: Zellenverknüpfung (nicht kopieren)
Peter
Hallo,
ich glaub ich hab's:
Sub test()
Dim n
For n = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(n, 6).Value = Cells(n, 5).Value
Next
End Sub
Viele Grüsse
Peter
AW: Zellenverknüpfung (nicht kopieren)
Peter
Kann mir jemand den offset zeigen?
Danke und viele Grüsse,
Peter
statt 1 nimm 4... oT
robert
AW: statt 1 nimm 4... oT
Peter
Hallo
Danke für die Antwort, das habe ich jedoch schon ausprobiert, funktioniert leider nicht.
Was könnte ich sonst noch ausprobieren?
Gruss,
Peter
probier mal so
robert
Sub test()
Dim n
For n = 4 To Cells(Rows.Count, 5).End(xlUp).Row
Cells(n, 6).Value = Cells(n, 5).Value
Next
End Sub
Gruß
robert
AW: probier mal so
Peter
Hallo Hans,
Ja das funktioniert bestens, vielen Dank und,
viele Grüsse
Peter
wer bitte ist Hans? :-)
robert
AW: wer bitte ist Hans? :-)
Peter
Sorry Robert,
Danke Dir für Deine Hilfe, funktioniert super, und jetzt verstehe ich auch die Logik, und verstehe nun auch eine andere Prozedur mit einem anders designten Offset :-)
Grüsse,
Peter
Excel-Beispiele