Office: Erste freie Spalte ermitteln

Hallo an Alle!

Habe eine Frage...
Wie finde ich die erste freien Spalte mit VBA
bzw. ich möchte in der ersten frei Spalte was kopieren...?

Danke schon mal im Voraus

:)

 

1. Kurze Logikfrage. Wenn du die erste freie Spalte suchst, wieso willst du dann etwas daraus kopieren?
2. Wie definierst du leer? Kein einziger Eintrag in der ganzen Spalte oder nur in einer bestimmten Zeile?

Hier ein Vorschlag zu deinem Thema wie ich es verstehe.
Du könntest mit UsedRange arbeiten.
Code:

Diese Zeile gibt dir die Anzahl an genutzten Spalten in der Tabelle1 zurück.

Grüße
Till

 

Da hast du Recht...Sorry...Ich möchte da was einfügen....Hab das falsche Wort benutzt...
Und mit Leer meine ich, das die Spalte komplett Leer ist, also da ist keinen Eintrag zu finden.

 

Pisa schlägt erbarmungslos zu. Es kann ja nur heißen:

statt:
Wie finde ich die erste freien Spalte mit VBA
bzw. ich möchte in der ersten frei Spalte was kopieren...?

richtig:
Wie finde ich die erste freie Spalte mit VBA?
Ich möchte etwas dorthin (=in die erste freie Spalte) kopieren.

 

Hast du meinen Vorschlag denn ausprobiert?
Was möchtest du in die Spalte kopieren? Gib uns bitte genauere Informationen, sonst funktioniert das nicht!

 

...und das ganze trotz Abi und Studium...ich schäme mich...

 

Wenn wir doch schon dabei sind...: Das Ganze

 

Ich möchte Werte aus einem anderen Tabellenblatt einfügen und muß vorher die erste freie/leere Spalte ermitteln. Die Copy-Funktion habe ich schon.
Es hapert bei finden der ersten freien/leeren Spalte...
...und wohl bei der Ausdrucksweise meines Problems...

 

Hast du meinen Vorschlag überhaupt gelesen? Wenn du es so nicht anwenden kannst, dann musst du eine Beispieldatei hochladen, damit ich es dir darin zeigen kann.

Trotzdem nochmal wiederholt. UsedRange.Columns.Count gibt dir die Anzahl der genutzten Spalten. Wenn du studiert hast, dann sollte dir doch auffallen, dass die erste freie Spalte dann einfach das Ergebnis + 1 ist.

Viele Grüße
Till

 

Deinen Vorschlag habe ich gelesen...Danke dir...

Das ist der Code...( den ersten teil des Codes hab ich jetzt nicht eingefügt)

Worksheets("Tabelle1").Range("M1:W1").Copy ' kopieren

Sheets("Tabelle2").Select ' zu Tabelle 2 wechseln

Tabelle2.UsedRange.Columns.Count +1 ' finde die erste freie Spalte


ActiveSheet.Paste ' Einfügen in die erste frei gefundene Spalte


Sheets("Tabelle1).Select

CutCopyMode = True


End Sub


Der Code funktioniert so nicht...Wo ist der Fehler?

 

Du scheinst recht blutiger Anfänger zu sein, daher eine ausführliche Erklärung.

1. Prinzipiell solltest du nie mit Select arbeiten. Das macht dein Makro unnötig langsam und du kannst auch einfach auf das Worksheet mit seinem Namen zugreifen bzw. über Worksheets(Index).

2. Du kopierst eine Zeile und willst es in eine Spalte einfügen? Bist du dir sicher? Das geht natürlich, indem du es transponierst, aber ich bin mir unsicher, ob das tatsächlich dein Ziel ist.

3. Wenn du die erste freie Spalte suchst, dann musst du das Ergebnis auch in einer Variablen speichern oder direkt verwenden, sonst ist die Rechnerei umsonst.

4. Wieso genau willst du den CutCopyMode einschalten? Eher das Gegenteil.

Hier ein Vorschlag, wenn du dich mit dem Zeilen/Spalten Zeug vertan hast. Wenn nicht, dann melde dich nochmal, dann zeige ich dir, wie du es transponieren kannst.

Code:

Habe es jetzt nicht getestet, aber so muss es eigentlich funktionieren.

Grüße
Till

 

Hallo

ich würde es auf diese Weise machen

Code:

willst du es wirklich alles nebeneinander in der ersten Zeile haben?
oder soll es auch gleich transponiert untereinander in der freien Spalte stehen?

Code:

MfG Tom

 

Hallo

Nachtrag
beide Codes sind von Tabelle1 aus zu starten

MfG Tom

 

Hallo Tom,

Denkst Du, dass deine Variante
Code:

besser ist als UsedRange zu verwenden?

Welche Unterschiede haben die beiden Methoden denn?
Edit: Ich glaube der Unterschied besteht darin, dass UsedRange - wie der Name schon sagt - den ganzen genutzten Bereich ansieht, deine Methode allerdings nur in der Zeile der Zelle die letzte Spalte zurückgibt. Als je nach Anwendung.

Viele Grüße
Till

 

So, habe den Code von Till benutzt und es hat funktioniert.
Danke...

Ich habe mich wohl sehr unglücklich ausgedrückt....Sorry für die Umstände...