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

Ansicht des Beitrags:
Von:
Tylo
Datum:
29.11.2023 11:36:35
Views:
222
Rating: Antwort:
  Ja
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:

 
 

  • 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
Rot Leer Zeilen löschne
29.11.2023 11:36:35 Tylo
NotSolved
29.11.2023 20:17:15 ralf_b
Solved
30.11.2023 09:00:04 Tylo
NotSolved
30.11.2023 13:18:28 Tylo
NotSolved