Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte einfügen ab ActiveCell.

Forumthread: Spalte einfügen ab ActiveCell.

Spalte einfügen ab ActiveCell.
31.10.2003 10:13:14
ewald
Hallo zusammen,

Mein Problem: Im folgenden Code wird die Spalte A
der Tabelle1 in Tabelle2 ab X14 eingefügt.
Nun möchte ich, dass eingefügt wird ab ActiveCell in
Spalte X.


Sub test()
Dim z As Long
Worksheets("Tabelle1").Activate
With Worksheets("Tabelle10")
LaR = Range("a65536").End(xlUp).Row
.Range("x14:x" & L + 10).Value = Range("a4:a" & LaR).Value
End With
End Sub


Ist das machbar?

Vielen Dank.

Grüße
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Spalte einfügen ab ActiveCell.
31.10.2003 10:34:56
Andreas Walter
Wenn ich es richtig verstehe,...
Und ich habe es nicht getestet...


Sub test()
Dim z As Long
Worksheets("Tabelle1").Activate
With Worksheets("Tabelle10")
LaR = Range("a65536").End(xlUp).Row
.Range("x"      & ActiveCell.Row &     ":x" & L + 10).Value = Range("a4:a" & LaR).Value
End With
End Sub


Aber was ist "L" ???
Ggf. muss "L+10" verändert werden
Anzeige
AW: Spalte einfügen ab ActiveCell.
31.10.2003 10:49:31
WernerB.
Hallo Ewald,

was hältst Du hiervon:

Option Explicit

Sub Ewald()
Dim laR As Long, acR As Long, z As Long
Application.ScreenUpdating = False
Worksheets("Tabelle10").Activate
With Worksheets("Tabelle1")
laR = .Cells(Rows.Count, 1).End(xlUp).Row
acR = ActiveCell.Row
z = acR + laR - 4
Range("X" & acR & ":X" & z).Value = .Range("A4:A" & laR).Value
End With
Worksheets("Tabelle1").Activate
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Anzeige
AW: Vielen Dank
31.10.2003 11:49:45
ewald
Hallo zusammen,

super, funktioniert wunderbar.

Vielen,vielen Dank.

Grüße
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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