Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Einfügen von Text

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige