Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
224to228
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
224to228
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einfügen ab erster leeren Zeile

Einfügen ab erster leeren Zeile
05.03.2003 10:54:29
Basti
Hallo,

habe bisher folgendes Makro:

Sheets("Statistik").Select
Range("A9:W131").Select
Selection.copy
Sheets("Kopiertabelle").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False

Columns("A:A").Select
Selection.NumberFormat = "dd/mm/yy"
Range("C12").Select

Der Bereich A9 bis W131 kann varieren. In dem Blatt Statistik soll er ab A9 (fest) bis W(fest) variable Zeilennummer alles markieren und die Werte genau dieses Bereiches in das Blatt Kopiertabelle einfügen. Dort allerdings erst ab der ersten freien Zeile.

Versteht ihr das Problem? Wenn ja, wie müsste ich den Code ergänzen?

Dank vielmals im Voraus,Basti

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Einfügen ab erster leeren Zeile
05.03.2003 10:58:38
Frederik Fuhrmann

Hallo!

Wenn du die erste freie Zelle in Spalte A suchst:

range("a65536").end(xlup)

Gruß
F.

Re: Einfügen ab erster leeren Zeile
05.03.2003 11:13:49
Basti

hi,

dabei bekomme ich den fehler, dass es eine unzulässige Eigenschaft sei.
ja richtig, wenn in a nichts mehr drinsteht, dann soll er dort die markierung beschließen und dann im blatt kopiertabelle aber diese markierung erst ab der ersten freien a-zeile einfügen...

grüße

Re: Einfügen ab erster leeren Zeile
05.03.2003 11:18:44
Frederik Fuhrmann

Hallo Basti!

Versuchs so:


Sub test()
Sheets("Statistik").Range("A9:W131").Copy Sheets("Kopiertabelle").Range("a65536").End(xlUp)
End Sub

das geht auch nicht... an alle!
05.03.2003 11:34:52
Basti

hallo zusammen,

noch einmal:
in Tabelle statistik sind als feste größen gegeben:
Spalten a-w und beginn in a9!

Im Rest stehen in jeder Zeile ein Mitarbeiter und die Anzahl kann ja ggf. variieren. Nun soll das makro diesen bereich, der dann ja auch mal bis w135 oder w128 gehen kann, markieren, dann in das blatt kopiertabelle springen und dort in der ersten freien zeile die inhalte einfügen.
hoffe, so ists klar.

grüße, basti


Anzeige
Re: das geht auch nicht... an alle!
05.03.2003 11:41:15
Frederik Fuhrmann

Dann gehts so:


Sub test()
Dim letzte_Zeile
letzte_Zeile = Range("w65536").End(xlUp).Row
Sheets("Tabelle1").Range("A9:W" & letzte_Zeile).Copy Sheets("Tabelle2").Range("a65536").End(xlUp)
End Sub

Re: das geht auch nicht... an alle!
05.03.2003 11:49:48
Basti

Hi,

von welcher Excel-Version gehst du aus? Ich habe es nun so und bekomme wieder die Objekt-Fehlermeldung:
Sub copy()

Dim letzte_Zeile
letzte_Zeile = Range("w65536").End(xlUp).Row

Sheets("Statistik").Range("A9:W" & letzte_Zeile).copy
Sheets("Kopiertabelle").Range("a65536").End (xlUp)

grüße

bei welcher Zeile?
05.03.2003 11:53:32
Frederik Fuhrmann

versuchs mit

set letzte_Zeile = range...




Anzeige
noch was..!
05.03.2003 11:54:43
Frederik Fuhrmann

Schreibe den unteren Teil in eine Zeile, wie ich es auch geschrieben hatte!

Re: bei welcher Zeile?
05.03.2003 11:59:05
Basti

Sub copy()

Set letzte_Zeile = Range("w65536").End(xlUp)

Sheets("Statistik Bereiche mit MA").Range("A9:W" & letzte_Zeile).copy Sheets("Kopiertabelle").Range("a65536").End(xlUp)

Columns("A:A").Select
Selection.NumberFormat = "dd/mm/yy"
Range("C12").Select

End Sub

so ists nun. Er schmeisst mir nun in der monsterzeile einen anwendungs- oder objektorientierten fehler. das .row im set musste ich löschen, da wollte er schon ein objekt haben...

greetz

Re: bei welcher Zeile?
05.03.2003 12:03:03
Frederik Fuhrmann

Ja wenn du das ".row" löscht, dann kanns nicht gehen!

Anzeige
Re: bei welcher Zeile?
05.03.2003 12:04:43
Basti

tja, dann sagt er mir aber mit markierung auf row: fehler beim kompilieren, objekt erforderlich:

Sub copy()

Set letzte_Zeile = Range("w65536").End(xlUp).Row

Sheets("Statistik Bereiche mit MA").Range("A9:W" & letzte_Zeile).copy Sheets("Kopiertabelle").Range("a65536").End(xlUp)

Columns("A:A").Select
Selection.NumberFormat = "dd/mm/yy"
Range("C12").Select

End Sub

Re: noch was..!
05.03.2003 12:33:27
Frederik Fuhrmann

Nimm "Set" wieder raus

so weit so gut, aber
05.03.2003 13:05:03
Basti

er soll nur Werte einfügen, so macht er leider alles...

ich hatte in zeile 1 ne kopfzeile, die wurde auf der kopiertabelle leider überschrieben, aber sie war doch nicht leer...

Anzeige

307 Forumthreads zu ähnlichen Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Leere Zelle finden und darüber Kopieren
SebastianSchelb

Hallo, ich habe noch ein Problem.
Tabelle:
Tür(A1)
Fenster(A2)
Haus(A3)
Buch(A5)
Zelt(A6)
Zelle A4 ist leer. Ich will jetzt das er die leere zelle automatisch findet und dann alle darunterbefindlichen Wörter um diese leere zelle nach oben Kopiert. Sollte dann so auss...
07.10.2008 11:28:54
Thread-ID: 1014663
3 Beiträge
Anzeige
erste numerische Zelle finden
marcl

Moin zusammen,
ich möchte im gesamten Blatt die erste numerische Zelle finden.
Ich dachte dabei an Find+IsNumeric, komme damit aber nicht weiter. Kann mir jemand helfen?
Danke
Gruß
marcl
05.11.2008 10:37:00
Thread-ID: 1021787
16 Beiträge
Erste und letzte Zelle finden
Frank

Guten morgen,
ich möchte die Zellen finden indem für Start die 06:00 und für Ende die 14:00 steht.
Beispiel:
In der Zelle A100 steht 06:00
In der Zelle A1000 steht 14:00
Wenn die Startzelle und die Endzelle gefunden wurden, dann möchte ich den Zellenbezug in G übernehme und...
18.11.2008 09:38:00
Thread-ID: 1025505
10 Beiträge
Die erste belgte Zelle in Spalte F finden
Kurt

Guten Abend,
ich möchte die 1. belegt Zelle in der Spalte F finden angefangen ab Zeile 3.
Dann möchte ich den Bereich von Spalte A bis Spalte H ab Zeile6 bis zu der 1.
belegten Zelle selectieren unm dann zu kopieren,
gruß mfg Kurt
20.11.2008 20:24:39
Thread-ID: 1026539
8 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
2
2
2
15
9
7
4
2
7
3
3
1
7
3
2
8
3
19
2
7
5
3
1