Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
960to964
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
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte freie Spalte suchen

Letzte freie Spalte suchen
25.03.2008 21:36:00
topdog
Hallo zusammen...
Grabe mich nun schon ne ganze Weile durch die Suchefunktion, find aber nicht das was ich brauche...
Ich brauche folgendes:
Ich habe auf Sheet Vorlage2 eine Spalte (A), die ab A3 beschrieben ist. Diese möchte ich gerne kopieren(die komplette Spalte!!!) und auf Sheet Vorlage3 ab Spalte K per "Knopfdruck" komplett einfügen (lt Makrorecorder hab ich das bekommen:
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Die Kopierte Spalte wird mehrmals eingefügt, deshalb brauche ich die letzte in Zeile 3 beschriebe Spalte und da danach einfügen.
Kann mir hierbei jemand helfen?
LG TopDog

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte freie Spalte suchen
25.03.2008 22:00:00
topdog
Hallo Ramses...
thx erstmal...
Kommt genau 1 Ergebnis und mit dem kann ich nix anfangen, weil

Kaum Excel/VBA-Kenntnisse


LG

Anzeige
AW: Letzte freie Spalte suchen
25.03.2008 22:06:48
Ramses
Hallo

Sub test()
Dim x as long
'Spaltennummer anpassen
Columns(DeineSpalte).Copy
X = Cells(3,columns.count).end(xltoleft).Column +1
columns(x).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub


sollte funktionieren
Gruss Rainer

AW: Letzte freie Spalte suchen
25.03.2008 22:07:43
Herbert
Hi,

Sub letzteSpalte()
Dim intCol As Integer, CC as integer
CC = Columns.Count
intCol = IIf(IsEmpty(Cells(3, CC)), Cells(3, CC).End(xlToLeft).Column + 1, CC)
MsgBox intCol
End Sub


mfg Herbert

Anzeige
AW: Letzte freie Spalte suchen - PROBLEM
26.03.2008 10:28:16
TopDog
Hallo da draussen...
Habe an meiner Liste etwas ändern müssen, deswegen muss ich das ein weinig umbauen:

Sub letzteSpalte()
Dim intCol As Integer, CC As Integer
Sheets("03_VORLAGE2").Select
'Spaltennummer anpassen
Range("A2:A101").Copy
Sheets("04_VORLAGE3").Select
CC = Columns.Count
intCol = IIf(IsEmpty(Cells(2, CC)), Cells(2, CC).End(xlToLeft).Column + 1, CC)
Cells(intCol).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub


So verwende ich momentan den Code von Herbert... Funzt.
Nur isses jetzt so, das ich die letzte ausgefüllte Spalte finde, aber nun nicht die ganze nächste freie Spalte markieren will sondern nur die Zelle die in Zeile 3 steht um das kopierte einzufügen.
Im Klartext:
Wie kann ich in der ersten freien Spalte die Zelle in Zeile 3 selektieren, um dann das kopierte einzufügen?
LG

Anzeige
AW: Letzte freie Spalte suchen - PROBLEM
26.03.2008 17:56:02
Herbert
Hi,

Sub letzteSpalte()
Dim intCol As Integer, CC As Integer
With Sheets("04_VORLAGE3")
CC = .Columns.Count
intCol = IIf(IsEmpty(.Cells(2, CC)), .Cells(2, CC).End(xlToLeft).Column + 1, CC)
Sheets("03_VORLAGE2").Range("A2:A101").Copy .Cells(3, intCol)
End With
End Sub


mfg Herbert

AW: Letzte freie Spalte suchen - erledigt
26.03.2008 18:21:49
topdog
Suuuuper danke Herbert!!!!!
gruß

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige