Excel VBA-Forum - Das Forum zu Microsoft Excel VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Leer Zeilen löschne	29.11.2023 11:36:35	Tylo
Leer Zeilen löschne	29.11.2023 20:17:15	ralf_b
Leer Zeilen löschne	30.11.2023 09:00:04	Tylo
Leer Zeilen löschne	30.11.2023 13:18:28	Tylo

Ansicht des Beitrags:

Von:
Tylo

Datum:
29.11.2023 11:36:35

Views:
755

Rating:

Antwort:

Thema:
Leer Zeilen löschne

Hi zusammen,

mir wurde ja schon sehr gut weitergeholfen mit dem überprüfen ob schon ein Tabelle mit dem Namen vorhanden ist. Jetzt würde ich geren noch in der fertigen Tabelle die leeren Zeilen löschen. In derVorlage geht das ganze bis 305 allerdings brauceh ich selten so viele.

Verwendet wird Excel 2016, meine Kentnisse sind immer noch sehr dünn

Das ist der jetzige Code

Sub Tabelle_075_dbl()
'
' erstellt Tabelle mit 0,75 dbl und überprüft ob schon vorhanden
'
'
    If Not WorksheetExists("0,75 dbl") Then
        Worksheets("Vorlage").Copy Before:=Worksheets(1)
        Set Worksheet = Worksheets(1)
        Worksheet.Name = "0,75 dbl"
    Else
        MsgBox "Tabelle 0,75 dbl existiert bereits", 48
        Exit Sub
    End If
    Sheets("0,75 dbl").Range("A1").Value = "0,75_dbl_Lapp"
    With Sheets("Drahtsatz kopieren")
        .Range("$A$2:$M$200").AutoFilter Field:=4, Criteria1:="DBU"
        .Range("$A$2:$M$200").AutoFilter Field:=5, Criteria1:="0,75"
        .Range("F:F").Copy Sheets("0,75 dbl").Range("C8")
        .Range("I:I").Copy Sheets("0,75 dbl").Range("M8")
        .Range("J:J").Copy Sheets("0,75 dbl").Range("S8")
        Sheets("0,75 dbl").Range("8:8,9:9").Delete
        Sheets("0,75 dbl").Range("A1").Select
        If .AutoFilterMode Then If .FilterMode Then .ShowAllData
        .Select
        Range("A1").Select
    End With
    MsgBox "Tabelle 0,75 dbl wurde erstellt", 64
End Sub

Hier die Tabelle als Beispeil

0,75_dbl_Lapp




Material		Artikel			Kontakte		Abisolierungen					Kabelbeschriftung Kabelende			Endlostext			Kabelbeschriftung Kabelanfang
Materialnummer	Artikel nummer	Länge	Stück zahl	Losgrösse	Kontakt_li	Kontakt_re	Abisol_li	Abzug_li	Abisol_re	Abzug_re	Schriftzuweisung	Text 1_li	Text 1_inv_li	Textabst 1_li	Text_mittig	Text_inv_mittig	Textabst_mittig	Text 1_re	Text 1_inv_re	Textabst 1_re	Textabstand li berechnen	Textabstand re berechnen
0,75_dbl_Lapp	Bund_BT	1000	1				9	3	9	3	M5_K	Beispiel	ja	30	Beispiel<<>>Beispiel	ja	50	Beispiel		30
0,75_dbl_Lapp	Bund_BT	1000	1				9	3	9	3	M5_K	Beispiel	ja	30	Beispiel<<>>Beispiel	ja	50	Beispiel		30
0,75_dbl_Lapp	Bund_BT		1				9	3	9	3	M5_K		ja	30	<<>>	ja	50			30
0,75_dbl_Lapp	Bund_BT		1				9	3	9	3	M5_K		ja	30	<<>>	ja	50			30
0,75_dbl_Lapp	Bund_BT		1				9	3	9	3	M5_K		ja	30	<<>>	ja	50			30
0,75_dbl_Lapp	Bund_BT		1				9	3	9	3	M5_K		ja	30	<<>>	ja	50			30

Ich hätte gerne das ab C7 abwärts geschaut wird ob die Zelle leer ist oder nicht und dann die Zeile gelöscht wird wenn sie leer ist. Wir gesagt es geht bis 305

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Leer Zeilen löschne	29.11.2023 11:36:35	Tylo
Leer Zeilen löschne	29.11.2023 20:17:15	ralf_b
Leer Zeilen löschne	30.11.2023 09:00:04	Tylo
Leer Zeilen löschne	30.11.2023 13:18:28	Tylo