Herbers Excel-Forum - das Archiv
Zellen kopieren - leere Zeile suchen
- Zellen kopieren - leere Zeile suchen von MichiM vom 20.09.2003 11:54:09
- AW: Zellen kopieren - leere Zeile suchen - von Hajo_Zi am 20.09.2003 11:58:39
- freie Zeile als Variable??? - von MichiM am 20.09.2003 18:42:28
- AW: freie Zeile als Variable??? - von Hajo_Zi am 20.09.2003 18:48:11
- Danke Hajo - oT - von MichiM am 21.09.2003 12:10:17
- Danke für die Rückmeldung oT - von Hajo_Zi am 21.09.2003 13:16:27
- Danke für die Rückmeldung oT - von Hajo_Zi am 21.09.2003 13:16:27
- Danke Hajo - oT - von MichiM am 21.09.2003 12:10:17
- AW: freie Zeile als Variable??? - von Hajo_Zi am 20.09.2003 18:48:11
- freie Zeile als Variable??? - von MichiM am 20.09.2003 18:42:28
- AW: Zellen kopieren - leere Zeile suchen - von Hajo_Zi am 20.09.2003 11:58:39
 |
Betrifft: Zellen kopieren - leere Zeile suchen
von: MichiM
Geschrieben am: 20.09.2003 11:54:09
Hallo Experten,
habe eine Frage und in dieser Form habe ich in der Recherche nichts gefunden :-(
Also,
ich habe eine Tablle "Anlegen" und eine Tabelle "Übersicht".
Jetzt soll über ein Makro die Zellen D5,D7,D10,D11 usw. in Tabelle "Übersicht" kopiert werden.
So weit so gut.
Das Problem: Daten sollen in die nächste freie Zeile kopiert werden.
Meine Frage also:
1)Gibt es die Möglichkeit, mehrere einzelne Zellen zu kopieren und dann in eine Zeile einzufügen? Die Kopierreihenfolge muss beachtet werden.
oder
2)Falls nicht, muss ich jede Zelle einzeln kopieren und einfügen.
Wie kann ich bestimmen, dass immer die gleiche,freie Zeile genommen wird (sonst schreibt er mir jede Zelle in eine neue Zeile).
Danke im vorraus
MichiM
 |
Betrifft: AW: Zellen kopieren - leere Zeile suchen
von: Hajo_Zi
Geschrieben am: 20.09.2003 11:58:39
Hallo Michi
jede einzelne Zeile einzeln
Zu Beginn des Makros die eile Feststellen und auf eine Variable schreiben.
Jetz Kopieren die Zeile ist ja in der Varuiablen.
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.
http://home.media-n.de/ziplies/
|
Betrifft: freie Zeile als Variable???
von: MichiM
Geschrieben am: 20.09.2003 18:42:28
???
Also, wenn ich das richtig verstanden habe, am Anfang des Makros die erste freie Zeile als Variable festlegen und dann jede Zelle einzeln einfügen.
Verstanden habe ich es - aber wie lege ich die Zeile als Variable fest?
Bin (wie am Level zu sehen) noch blutjunger Anfänger mit Makros. Kann mir jemand den Anfang machen (und vielleicht die einzelnen "Kürzel" kurz erläutern)?
Den Rest fummel ich mir dann zurecht.
Danke
MichiM
|
Betrifft: AW: freie Zeile als Variable???
von: Hajo_Zi
Geschrieben am: 20.09.2003 18:48:11
Hallo Michi
jetzt steht leider nicht mehr der entscheidene Hinweis wonach die letzte Zeile festglegt werden soll. Darum suche mal selbst
Letzte Zeile der Spalte C (=3)
Zeile als Long Definieren
Cells(Rows.Count, 3).End(xlUp).Row
oder
[C65536].End(xlUp).Row verursacht aber Fehler wenn 65536 nicht leer
Hinweis von ManuelaM
Dim Loletzte as Long
LoLetzte = 65536
If Range("A65536") = "" Then LoLetzte = Range("A65536").End(xlUp).Row
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
' von Thomas Ramel
Letzte Spalte der Zeile 4
Cells(4, Columns.Count).End(xlToLeft).Column
Fehler falls letzte Spalte belegt wird diese nicht erkannt
[IV4] End(xlToLeft).Column
nach Hinweis von ManuelaM geändert
Dim LoLetzte As Long
LoLetzte =256
If [IV4] = "" ThenLoLetzte =[IV4].End(xlToLeft).Column
Letzte Zelle in eine Tabelle
Sub Test()
Name = ActiveSheet.Cells.SpecialCells(xlLastCell).Address(False, False)
End Sub
Funktion schießt gelegentlich über Ziel hinaus nach löschen von Zeilen, Spalten vorher speichern
Siehe Excel Lehrgang S 81
benutzter Bereich einer Tabelle
Sub Test()
Name = Sheets("Tabelle1").UsedRange.Address
End Sub
z.B. Name = ($A$1:$F$8)
Siehe Excel Lehrgang S 82
Letzte Zelladresse mit und ohne VBA
(unabhängig von der Spalte) Zeilennummer ermitteln
Die allerletzte benutzte Zeile, unabhängig von der Spalte liefert:
MsgBox Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
http://home.media-n.de/ziplies/
|
Betrifft: Danke Hajo - oT
von: MichiM
Geschrieben am: 21.09.2003 12:10:17
|
Betrifft: Danke für die Rückmeldung oT
von: Hajo_Zi
Geschrieben am: 21.09.2003 13:16:27
| |