Das Archiv des Excel-Forums
Zellen kopieren - leere Zeile suchen
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
Excel-Beispiele zum Thema " Zellen kopieren - leere Zeile suchen"
| Makros in Abhängigkeit vom Zellennamen aufrufen |
 |
Zellen auf Kommentar überprüfen |
|
| Spalten bedingt summieren und Zellen formatieren |
|
Text aus Textbox in Zellen aufteilen |
|
| Zellen vergleichen und markieren |
|
Zählen formatierter Zellen |
|
| Daten aus Textdatei gezielt in Zellen übernehmen |
|
Zellen verbinden und trennen |
|
| Zellen bei Minuswerten schraffieren |
|
Zeilen oberhalb der markierten Zellen einfügen |
|
| Drei Zellen rechts der aktiven Zelle markieren |
|
Zellen vom Druck ausschließen |
|
| Zellenwert als Autofilter-Kriterienwert |
|
Nur Zellen mit Inhalt in ComboBox listen |
|
| Verweise auf Zellen in geschlossener Arbeitsmappe erstellen |
|
Zellen nach Schriftfarbe summieren |
|
| Füllen aller leeren Zellen mit einem Platzhalter |
|
Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen |
|
| Zeilen mit Zellen mit rotem Hintergrund ausblenden |
|
Anzahl der gelb hinterlegten Zellen ermitteln |
|
| Editieren von Zellen durch DoppelKlick verhindern |
|
Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen |
|
| Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen |
|
Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln |
|
| Werte in Zellen mit vorgegebener Hintergrundfarbe addieren |
|
Prüfung, ob Parallelzellen übereinstimmen |
|
| Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen |
|
Kofpzeilenwerte angekreuzter Zellen multiplizieren |
|
| Zellen über Tabellenblatt-Schaltfläche multiplizieren |
|
Wert aus A1 in mehrere Zellen übernehmen |
|
| Zellen für Eintrag auswählen und UserForm-ListBox aufrufen |
|
Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen |
|
| Nur sichtbare Zellen addieren |
|
Zellinhalte vor dem Verbinden der Zellen zusammenfassen |
|
| Blatt auswählen und Zellen nacheinander drucken |
|
Leere und Zellen mit 0 aus-/einblenden |
|
| Zugriff auf Zellen unter Verwendung eines Bereichsnamens |
|
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen |
|
| Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten |
|
Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern |
|
| Prüfung, welche Zellen nach Öffnen verändert wurden |
|
Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen |
|
| Nur sichtbare Zellen in anderes Arbeitsblatt kopieren |
|
Zeilenhöhe bei verbundenen Zellen anpassen |
|
| Einfügen von Zeilen vor und nach Zellen mit Fettdruck |
|
Bei Zelleingabe andere Zellen füllen |
|
| Dialogaufruf, wenn zwei Zellen Werte enthalten |
|
Gültigkeitsliste ohne Lerrzellen |
|
| Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren |
|
Zellen verbinden, ohne dass Werte verlorengehen |
|
| Blätter in andere Arbeitsmappen kopieren |
|
Module von Mappe zu Mappe kopieren |
|
| Arbeitsblatt 40 mal kopieren |
|
Schriftgröße beim Kopieren verdoppeln |
|
| Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen |
|
Tabellencode nach Kopieren des Blattes löschen |
|
| Arbeitsmappe blitzschnell kopieren |
|
VBE-Namen der Blattmodule beim Kopieren festlegen |
|
| Blattinhalt von einer zur anderen Arbeitsmappe kopieren |
|
Formel bis zur letzten Zeile der Nebenspalte kopieren |
|
| Datei kopieren, wenn noch nicht vorhanden |
|
Zeilenweise von Blatt zu Blatt kopieren |
|
| Erste Druckseite in eine neue Arbeitsmappe kopieren |
|
Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren |
|
| Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren |
|
Bei Eintrag in Spalte A aktuelle Zeile kopieren |
|
| Filtern und Kopieren |
|
Zeile mit aktiver Zelle in anderes Blatt kopieren |
|
| Zeilen in Abhängigkeit des Wertes in Spalte A kopieren |
|
Einen von einer Schlüsselziffer abhängigen Bereich kopieren |
|
| Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren |
|
Über InputBox festzulegenden Bereich kopieren |
|
| Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen |
|
Tabellenblatt kopieren und dreistellig fortlaufend numerieren |
|
| Jede zweite Zelle kopieren |
|
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren |
|
| Gruppe von Optionsfeldern kopieren und Makro zuweisen |
|
Nicht zusammenhängenden Bereich in nächste Zeile kopieren |
|
| Wert aus UserForm-TextBox suchen und Fundstelle kopieren |
|
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren |
|
| Werte prüfen und kopieren |
|
Bei Eintrag von X Zeile in andere Tabelle kopieren |
|
| Daten kopieren wenn kein Datum oder Datum > Heute |
|
Blattinhalte dreier Blätter in neues Blatt kopieren |
|
| Kopieren und Umbenennen eines Blattes |
|
Nur Zeilen mit bestimmtem Inhalt kopieren |
|
| Artikelnummern nach Kriterien suchen und Datensätze kopieren |
|
Bild in zweites Blatt an gleiche Position kopieren |
|
| Alle Zeilen ohne Wert in vorgegebener Spalte kopieren |
|
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren |
|
| Bildergruppe in anderes Blatt kopieren |
|
Bei Eingabe Formel in der Nebenspalte nach unten kopieren |
|
| Auswahl in andere Arbeitsmappe kopieren, speichern, schließen |
|
Begriff suchen und Fundzeilen in anderes Blatt kopieren |
|
| Aktive Zeile kopieren und löschen |
|
Datensätze, die öfter als 3 mal vorkommen, kopieren |
|
| Den jeweils darüberliegenden Wert in Leerzellen kopieren |
|
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren |
|
| Dateien listen und Blätter in neue Arbeitsmappe kopieren |
|
Zellinhalt suchen und Zelle auswählen |
|
| Suchbegriff über mehrere Tabellenblätter suchen. |
|
Suchen und weitersuchen |
|
| Zahl +/- 1 suchen |
|
Ein Zeichen in einer Formel suchen |
|
| Datum suchen und Wert eintragen |
|
Wert in Tabelle suchen und in UserForm ausgeben |
|
| Letzte Zelle mit Inhalt suchen |
|
Textdatei nach Begriff durchsuchen und Fundzeile importieren |
|
| Wert in Array suchen, ohne jedes Datenfeld abzufragen |
|
Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle |
|
| Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren |
|
Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen |
|
| Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden |
|
Suchwert in zweiter Tabelle suchen und Fundzeile eintragen |
|
| Suchen von Nachnamen in Zeichenfolgen |
|
Dateien in einem Verzeichnis und Unterverzeichnissen suchen |
|
| Datum suchen und Adresse der Fundzelle ausgeben |
|
Begriffe in zweiter Tabelle suchen und Werte anfügen |
|
| Text aus UserForm-TextBox in Tabelle suchen |
|
Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen |
|
| Suchbegriff in vorhergehenden Tabellen suchen |
|
Neueste Textdatei eines Verzeichnisses suchen und umbenennen |
|
| Artikelnummern suchen und jeweils letzte Fundstelle listen |
|
Wörter eines Satzes in Indizliste suchen |
|
| Zellwert nach Doppelklick in Tabelle suchen |
|
Suchen in 2. Tabelle und Ersetzen der Quelldaten |
|
| Wert in Tabelle 2 suchen und Fundstellen übertragen |
|
Suchbegriff in Tabelle suchen und Fundzeilen auswählen |
|
| Suchbegriffe aus Tabelle im Excel-WebArchiv suchen |
|
Wert aus ComboBox in TextBox, dann in Tabelle suchen |
|
| Artikelnummer über InputBox suchen und eintragen |
|
Anwendung auf Fesplatte suchen |
|
| Tabelle nach ComboBox-Auswahl durchsuchen |
|
Werte suchen, eintragen und löschen |
|
| Zeile 1 nach Wert der aktiven Zelle durchsuchen |
|
Suchbegriff in Tabelle suchen und Fundzeilenindex zurückgeben |
|
| Wert in zweiter Tabelle suchen und als Kommentar ausgeben |
|
Wert in externer Mappe suchen und mit Format übernehmen. |
|
| Wert in ComboBox einlesen, suchen, editieren, ausgeben |
|
Grafikdateien suchen |
|
| Suchen der Nachbarzelle der Zelle mit dem Maximalwert |
|
Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben |
|
| Zahl suchen und an den Fundstellen Zeile einfügen |
|
Name und Vorname suchen, Werte und Fundstellen importieren |
|
| Begriff in der ersten Spalte einer ListBox suchen |
|
