Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1784to1788
1784to1788
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile mit leerer Zelle kopieren

Forumthread: Zeile mit leerer Zelle kopieren

Zeile mit leerer Zelle kopieren
13.10.2020 14:47:50
Blume
Hallo zusammen,
ich habe eine Frage: In Spalte A sind manchmal leere Zellen. Wenn diese Zelle leer ist, dann soll es die ganze Zeile in das Tabellenblatt "Backup" an das Ende hinzufügen. Das Gilt aber wirklich nur für die Zellen, bei denen Die Zelle in Spalte A leer ist. Am besten wäre es, es würde es dann automatisch nach dem Datum in Spalte B sortieren.
Kann mir jemand helfen?
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeile mit leerer Zelle kopieren
13.10.2020 17:58:35
Hajo_Zi
Benutze Autofilter und Kopiere den sichtbaren Bereich, Start, Bearbeiten, Suchen..., Gehe zu, Inhalte, sichtbare Zellen.
Excel hat auch einen Makrorecorder.

Frage...
13.10.2020 18:09:35
Werner
Hallo,
da stellen sich zwei Fragen:
1. Sind die Zellen in Spalte A tatsächlich leer oder ist da ggf. ein Formel drin die leer ausgibt?
2. Bis zu welcher Spalte in der Quelltabelle geht dein Datenbereich?
Gruß Werner
Anzeige
AW: Frage...
13.10.2020 20:11:06
Blume
Hallo Werner,
die Zellen in Spalte A sind wenn dann tatsächlich leer.
Es geht bis zu Spalte Z.
Der Hintergrund ist der, dass die Zeile als Backup in das andere worksheet kopiert werden soll und dann aus der originaltabelle gelöscht werden soll.
AW: Frage...
13.10.2020 22:03:56
Werner
Hallo,
Option Explicit
Public Sub Leere_Kopieren()
Dim loLetzteQ As Long, loLetzteZ As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
loLetzteQ = .Cells(.Rows.Count, "B").End(xlUp).Row
On Error Resume Next
.Range(.Cells(1, "A"), .Cells(loLetzteQ, "A")).SpecialCells(xlCellTypeBlanks).EntireRow. _
Copy
If Err.Number = 1004 Then Exit Sub
With Worksheets("Backup")
loLetzteZ = .Cells(.Rows.Count, "B").End(xlUp).Offset(1).Row
If .Cells(1, "B") = "" Then loLetzteZ = 1
.Cells(loLetzteZ, "A").PasteSpecial Paste:=xlPasteValues
loLetzteZ = .Cells(.Rows.Count, "B").End(xlUp).Row
.Range(.Cells(1, "B"), .Cells(loLetzteZ, "Z")).Sort Key1:=.Range("B1"), Order1:= _
xlAscending, _
Header:=xlNo, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End With
.Range(.Cells(1, "A"), .Cells(loLetzteQ, "A")).SpecialCells(xlCellTypeBlanks).EntireRow. _
Delete
End With
End Sub
Gruß Werner
Anzeige
AW: Frage...
14.10.2020 07:59:24
Blume
Hallo Werner,
es funktioniert, wenn ich es mit wenigen Zeilen probiere. Allerdings kopiert und löscht es die Zeilen ab Zeile (ca. 20) nicht mehr. Woran kann das liegen?
In dem Dokument sind immer mal wieder leere Zellen in dieser Spalte A. Mal in Zeile 2,mal 4, 80 es müsste die komplette Spalte durchlaufen.
Anzeige
AW: Frage...
14.10.2020 09:09:56
Werner
Hallo,
keine Ahnung. Bei mir tut das Makro das, was es tun soll. Deine Datei kenne ich nicht.
Kann es sein, dass deine Spalte B ab Zeile 20 leer ist?
In Spalte B wird im Makro die letzte belegte Zeile ermittelt.
Sollte die Spalte B ab Zeile 20 leer sein, dann geht der "Löschbereich" Spalte A auch nur bis Zeile 20.
Gruß Werner
Anzeige
AW: Frage...
14.10.2020 13:03:00
Blume
Hallo Werner,
ja, bei mir funktioniert es auch im oberen Bereich. Spalte B ist bei mir immer gefüllt, daran sollte es nicht liegen.
AW: Frage...
14.10.2020 13:03:02
Blume
Hallo Werner,
ja, bei mir funktioniert es auch im oberen Bereich. Spalte B ist bei mir immer gefüllt, daran sollte es nicht liegen.
AW: Frage...
14.10.2020 13:04:55
Blume
Ich habe es getestet, in der Zelle ist kein Wert, keine Formel, nichts. Trotzdem funktioniert das Makro nur vollständig, wenn man z.B. vorher einen Wert aus der Zelle in Spalte A löscht.
Anzeige
AW: Frage...
14.10.2020 15:35:41
Blume
Ich habe es getestet, in der Zelle ist kein Wert, keine Formel, nichts. Trotzdem funktioniert das Makro nur vollständig, wenn man z.B. vorher einen Wert aus der Zelle in Spalte A löscht.
AW: Frage...
14.10.2020 18:43:36
Werner
Hallo,
und damit soll ich jetzt was anfangen?
Lad mal deine Mappe hoch. Ich denke, dass die Zellen in Spalte A nicht wirklich leer sind.
Wie kommen denn die Daten da hin?
Gruß Werner
Anzeige
AW: SpecialCells..
15.10.2020 13:52:24
Gerd
Hallo,
lass mal diese Codezeile vorweg laufen:
Columns(1).Value = Columns(1).Value
Die Specialcells-Methode hat ein Problem mit nicht genutzten Zellen bzw. solchen außerhalb des
benutzten Bereichs (UsedRange). Dafür spricht auch deine Feststellung.
Gruß Gerd
AW: SpecialCells..
19.10.2020 08:05:14
Blume
Hallo Gerd,
ja, daran lag es! Vielen Dank für Hilfe, jetzt funktioniert es komplett.
Herzlichen Dank!
Anzeige
;

Forumthreads zu verwandten Themen

Gültigskeitsprüfung mit leerer Zelle
Franz

Guten Abend!
Habe 9 Spalten mit Dropdowns gefüllt. Wie bekomme ich den nachfolgenden Code (Quelle: Archiv) eleganter hin, dh. ohne for next Schleife und dadurch schneller. Der Datenbereich heistt "Printarea".
Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer For i =...
14.09.2008 20:56:00
Thread-ID: 1009627
11 Beiträge
Anzeige
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Anzeige
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Gültigkeitsliste ohne Zellenbereich
Reinhard

Hallo Wissende,
Sub Makro1() With Range("P2").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="a;b;c" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput...
02.11.2008 16:48:00
Thread-ID: 1021179
4 Beiträge
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Anzeige
Zeile mit optisch leerer Zelle löschen
Werner

VBA-Level: befriedigend
Hallo Freunde,
eine Tabelle (Worksheet) hat mehrere Spalten, beginnend ab Spalte A. Spalte A enthält Stringwerte.
Einige der Zellen in Spalte A sind optisch leer.
Nun sollen alle diejenigen Zeilen, bei denen die Zellen in Spalte A optisch leer sind, gelös...
13.03.2009 11:21:32
Thread-ID: 1059795
10 Beiträge
Anzeige
Wert wird nicht angezeigt
Markus

Hallo,
habe folgendes Problem:
Ich lasse mir einen Wert per VBA ausrechnen und dann mit Range... im Tabellenblatt anzeigen.
Das Problem ist, dass der Wert nicht angezeigt wird.
Wenn ich denn Programmcode per Einzelschritt debugge, dann wird der Wert komischerweise angezeigt!
...
20.07.2009 11:00:55
Thread-ID: 1089939
6 Beiträge
Geöffnete Datei wird nicht angezeigt...
Ruediger

Hallo zusammen,
ich habe eine Datei - mit einigen Verknüpfungen auf eine andere Datei - versuchen wollen zu öffnen. Ich werde auf gefragt, ob ich aktualisieren will oder nicht. Drücke ich aktualisieren als auch nicht aktualisieren, wird die Datei zwar geöffnet, aber nicht angezeigt.
Wo...
22.07.2009 17:02:42
Thread-ID: 1090605
3 Beiträge
Userform wird nicht bei allen angezeigt
Rudolf

Hallo
Beim öffnen einer grossen Excel-Arbeitsmappe wird u.a. eine Userform auch geöffnet:
folgender Code:
Private Sub Workbook_Open() On Error Resume Next UserForm2.Show (0) End Sub Leider aber wird diese Userform (die die Navigation und weitere Schaltflächen für die Arbeitsmappe e...
26.01.2010 11:58:02
Thread-ID: 1133017
8 Beiträge
Alle roten zellen ohne Duplikate auflisten
Markus

Hallo zusammen,
ich habe in Tabelle 2 Spalte A, und in Tabelle 3 verstreut Zellen die eine Nummer enthalten.
Wie kann ich sämtliche Felder die rot markiert sind, in Tabelle 3 Spalte M absteigend sortiert ohne doppelte Eintäge auflisten?
Ich hoffe jemand kann helfen.
Gruß Markus<...
18.02.2010 13:54:14
Thread-ID: 1139505
6 Beiträge
Liste ohne Leerzellen
Harald

Hallo zusammen,
folgendes Problem:
In Spalte A:A habe ich in manche Leerzellen.
z.B.:
A1=1234abcd
A2= leer
A3= leer
A4= 4321dcba
A5= leer
usw.
Jetzt möchte ich gern alle gefüllten Zellen in Spalte B:B untereinander stehen haben, also :
B1= 1234abcd
24.02.2010 17:01:25
Thread-ID: 1141194
12 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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