Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
528to532
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellenbezug statt Inhalt

Zellenbezug statt Inhalt
08.12.2004 07:44:21
Sebastian
Hallo liebe Excel Fans,
Ich habe folgendes Problem: Ich habe durch dieses Forum schon ein Makro als Hilfe bekommen, dass mir markierte Zellen von einer Tabelle in eine andere kopiert. Leider nur den Zelleninhalt, was ich aber bräuchte wär aber der Zellenbezug,
d.h. wenn ich in der einen Tabelle etwas in einer Zeile ändere, soll die Änderung auch in der anderen Tabelle, welche die kopierte Zeile enthält, automatisch übernommmen werden.
Ist dies möglich?
Vielen Dank und Grüße
Sebastian

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

Betreff
Datum
Anwender
Anzeige
AW: Zellenbezug statt Inhalt
08.12.2004 07:49:50
Nico
Moin Sebastian
Könntest du mal deinen Code posten?
Ich glaube dein Code könnte mir helfen.
Danke
Gruß
Nico
AW: Zellenbezug statt Inhalt
Sebastian
Ja klar,wär super wenn du das könntest: Hier ist der Code:

Sub Sebastian4()
Dim Anz As Long, acR1 As Long, i As Long
Application.ScreenUpdating = False
Sheets("LK-DB").Select
Anz = (Len(Selection.Address) - _
Len(Selection.Address(False, False))) / 2
Sheets("SK-DB").Select
acR1 = ActiveCell.Row
For i = 1 To Anz
Rows(acR1).Insert Shift:=xlDown
Next i
Sheets("LK-DB").Select
Selection.Copy
Sheets("SK-DB").Range("A" & acR1).PasteSpecial Paste:=xlAll, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Viele Grüße
Anzeige
AW: Zellenbezug statt Inhalt
Sebastian
Hallo Nico,
Hat das Makro weitergeholfen?
Grüße

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige