Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1692to1696
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
1692to1696
1692to1696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile löschen bei einer leeren Zelle

Zeile löschen bei einer leeren Zelle
23.05.2019 08:54:00
Emre

Hallo zusammen,
ich habe ein VBA Tool erstellt, das mir eine Tabelle nach gewünschten Filtern bereinigt.
Aktuell tut das Tool folgendes: Man lädt drei Dateien hoch (die ich euch angehangen habe).
Die Tabelle in der Datei Dialog-Export wird bereinigt und ungewollte Spalten und Zeilen werden gelöscht.
Dann wird in der Datei Start-Export: An die Tabelle von der Datei Dialog wird eine Spalte drangehangen mit ProjektIdent.
Die Spalten 'Teilenummer' werden in den Dateien Dialog & Start abgeglichen und bei Übereinstimmung werden die Spalte Projektident ausgefüllt.
Nun bestehen aber in der Spalte ProjektIdent leere Zellen.
Ich möchte die ganze Zeile mit leerer ProjektIdent. löschen aber habe es bis dato nicht hinbekommen.
Ich denke es wäre auch einfacher zum weiterarbeiten wenn die Ergebnisse in eine neue Arbeitsmappe eingefügt werden.
Leider habe ich das auch nicht geschafft.
Ich bin euch für jede Hilfe und jeden Tipp dankbar.
Viele Grüße
/Dialog
https://www.herber.de/bbs/user/129971.xlsx
/Start
https://www.herber.de/bbs/user/129972.xlsx
/Bündel
https://www.herber.de/bbs/user/129974.xlsx
/VBA-Tool
https://www.herber.de/bbs/user/129973.xlsx

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zu komplex
23.05.2019 09:31:02
Fennek
Hallo,
nur das Durchsehen der Dateien mit einem ersten Blick auf den VBA-Code hat bereits zu lange gedauert. Diesen umfangreichen VBA-Code nur auf mögliche Sicherheitsrisiken zu prüfen, erscheint mir bereits zu viel für ein kostenloses Forum.
Ist es möglich, die Frage auf wenigen Zeilen, sowohl Daten als auch VBA-Code zu reduzieren? Den Transfer der Antwort in das Projekt müßtest Du aber dann selbst leisten.
mfg
AW: zu komplex
23.05.2019 09:54:26
Emre
Hallo,
ja das Tool ist wirklich sehr umfangreich ich erwarte natürlich keinen großen Aufwand. Die Dateien habe ich nur hochgeladen damit ihr das Tool evtl. ausprobieren könnt und sehen könnt was ich meine, die sind für mein Problem 'nicht relevant' und ich denke im Code des Tools ist der relevante Teil:
'Teil 3 -- Start

Denn hier werden die Spalten abgeglichen und die Projekt.Ident.-Spalte gefüllt. Ich brauche eine Anweisung, dass bei nicht gefüllter Zelle die ganze Spalte gelöscht wird.
Hoffe ich konnte das Problem präzisieren.
VG
Anzeige
AW: zu komplex
23.05.2019 09:55:55
Emre
Entschuldige mich..
Bei nicht gefüllter Zelle in der Spalte 'ProjektIdent' soll die ganze Zeile gelöscht werden, nicht die Spalte.
AW: zu komplex
23.05.2019 10:03:57
Daniel
Hi
bei echten Leerzellen:
columns(...).Cells.SpecialCells(xlcelltypeblanks).EntireRow.Delete
Gruß Daniel
AW: zu komplex
23.05.2019 10:10:28
Matthias
Moin!
Du könntest das in deinem Code so anpassen, dass er, wenn er keine PI einträgt, die Zeile löscht. UNgetestet, hätte ich den COde so umgebaut: 
 startnr = .Sheets(i).Cells(n, Spalte_Teil).Value
Set startsuche = wbk_Start.Sheets(1).Columns(2).Find(What:=startnr)
If Not startsuche Is Nothing Then
start_Spalte_Teil = startsuche.Column
start_Reihe_Teil = startsuche.Row
start_projektident = wbk_Start.Sheets(1).Cells(start_Reihe_Teil,  _
start_Spalte_PI).Value
.Sheets(i).Cells(n, Spalte_PI).Value = start_projektident
Else
.Sheets(i).Rows(n).Delete shift:=xlUp
End If

Bei mehreren /vielen Zeilen, könntest du auch noch die Daten sortieren und dann löschen. Dann wird es nur ein Löschvorgang. Wie gesagt der Code ist ungetestet. Dann hast du in deinem Code einen Haufen Arbeit investiert. Wenn man da mal einen Tipp geben darf (ist keine Kritik und evtl. auch Geschmackssache). Nutze mehr Schleifen. Bspw. beim Einlesen/Löschen der Textboxen oder auch der 10 zeiligen and Verknüpfung. Das lässt sich später leichter Warten und erweitern und liest sich leichter.
VG
Anzeige
AW: zu komplex
23.05.2019 13:01:43
Emre
Hi Matthias,
viele Dank, mit einer kleinen Anpassung hat es funktioniert! Ich danke dir. Den anderen natürlich auch. Ich werde den Code mal überfliegen und schauen wo ich eine Schleife einbauen kann.
VG

302 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Anzeige
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Zeilen ausblenden, außer wenn in Zelle ...?
Selma

Hallo Leute,
ich möchte mit einem CommandButton ab Zeile 4 die Zeilen wie folgt ausblenden:
- wenn in Spalte M die Zelle diesen "plt" Inhalt hat, dann soll die Zeile nicht ausgeblendet werden
- wenn in Spalte M die Zelle die Füllfarbe 15 hat., dann soll die Zeile nicht ausgeblendet...
27.10.2008 18:13:00
Thread-ID: 1019700
10 Beiträge
Zelleninhalt in Kopfzeile Seitenansicht zeigen?
Heiner

Hallo Forum,
ich bin Excel-Neueinsteiger habe ein grosses Problem...
In der Kopfzeile (Mitte) einer Seitenansicht soll automatisch der Eintrag aus Tabelle1 / Zelle B3 angezeigt werden.
Ist das möglich? Und wenn ja, wie kann das realisiert werden?
Wer kann mir mit einem Formel- o...
05.11.2008 12:10:35
Thread-ID: 1021845
2 Beiträge
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
Werte aus einer Zelle in andere Zelle (neue Datei)
Franz

Tach auch,
folgendes Problem habe ich:
ich öffne eine Datei über eine Vorlage "rep.xlt". Die heisst dann bis zum Speichern "rep1". In einer Zelle wird eine Zahl eingetragen, bspw.: 1234. Dann kann ich die Datei per makro speichern, dann heisst sie: "rep1234.xls. Das funktioniert auch g...
22.01.2009 15:10:00
Thread-ID: 1042648
3 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox

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
8
9
5
2
4
3
9
1
2
2
2
4
3
13
5
10
1
5
3
2
4
10
1
4
2