Zellen kopieren - leere Zeile suchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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/

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/

Beliebteste Forumthreads (12 Monate)

Zellen kopieren - leere Zeile suchen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread