Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1536to1540
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
Inhaltsverzeichnis

Einfügen von Text

Einfügen von Text
29.01.2017 15:12:30
Text
Eine kleine Frage,
Wenn ich aus der Tabelle2 den Zellinhalt von "AF8" in das aktive Tabellenblatt1 in die aktive Zeile eine Zelle davor einfügen möchte- wie kann ich das mit VBA lösen?
Worksheets("Tabelle2").Range("AF8") ist die Quelle
Zielort ist aktive Zeile in Worksheets("Tabelle1")
dort ist die Spalte 3 also C der Einstiegspunkt
Eingefügt werden soll aber in der Spalte 2 also in B
Kann mir jemand beim Code helfen?
Gruß Leon

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einfügen von Text
29.01.2017 15:15:27
Text
Hallo Leon,
ActiveCell =Worksheets("Tabelle2").Range("AF8")
Zielort war ja die aktuelle Zelle.

AW: Einfügen von Text
29.01.2017 15:25:12
Text
Das will nicht, Hajo
Zielort ist zwar die aktuelle aktive Z E I L E aber eine Zelle davor.
Aktiv ist die Zelle C und eingefügt werden soll aber in Zelle B.
Gruß Leon
AW: Einfügen von Text
29.01.2017 15:26:25
Text
Hallo Leon,
ActiveCell.offset(-1,0)
Gruß Hajo
AW: ... wo der Daumen rechts ist
29.01.2017 15:46:45
Gerd
Hallo Leon!
Sub Links_ist_da()
If ActiveCell.Column > 1 Then _
ActiveCell.Offset(0, -1) = Worksheets("Tabelle2").Range("AF8").Value
End If
End Sub

Gruß Gerd
Anzeige
AW: ... wo der Daumen rechts ist
29.01.2017 16:35:34
Leon
Danke schön Gerd- das passt wunderbar.
Gruß Leon

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige