Thema Datum  Von Nutzer Rating
Antwort
Rot leere Zeilen löschen
08.08.2024 19:23:10 Newbeee
NotSolved
09.08.2024 00:24:10 ralf_b
NotSolved
09.08.2024 09:15:47 Gast37991
NotSolved
09.08.2024 11:40:17 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Newbeee
Datum:
08.08.2024 19:23:10
Views:
274
Rating: Antwort:
  Ja
Thema:
leere Zeilen löschen

Hallo.

Ich soll die Betreuung der Excel-Dateien einer ausscheidenden Kollegin übernehmen, und diese sind mit diversen Makros gespickt. Meist sind diese recht simpel, aber einiges läuft halt mit Bedingen, und ich bi bugl. VBA ein ziemlicher Novize mit quasi Nullll Programmiererfahrung. Ich bitte also vorab um Nachsicht, wenn ich Anfängerfehler mache. Immerhin stelle ich mich der Aufgabe.

 

zum konkreten Task:

In einem Tabellblatt ("Start"/codename Tabelle2) gibt es in den Splaten a -h diverse Werte, einzelne Felder können leer sein. Alle Daten sollen in einem anderen Tabellenblatt ("Ende"/Tabelle1) erscheinen, leere Zeilen (==> kein Eintrag in Spalte A) sollen am Ende aber gelöscht werden.

Um unerwünschten Namensänderungen vorzubeugen, wollte ich die Blätter über den Codenamen ansprechen, aber das war nich so erfolgreich.

Hier mein Versuch

Sub Tabellekopieren_und_leereZeilenlöschen_mit_FornextSchleife()
Dim i As Integer, lastrow As Integer
Dim ws As Worksheet

  ws Tabelle2.Activate
lastrow = ActiveSheet.used.Range.Rows.Count
 Range("a1:h & lastrow").Copy

ws Tabelle1.Activate
Range("a1").Insert

==> Damit sollte der relevante Teil der Ausgangstabelle opiert und im Zielblatt eingefügt sein


'leere Zeile löschen
 '    For i = lastrow To 1 Step -1
'  if "a & i" ="" entireRow.delete
'Next i

End Sub

Für Euch vermutlich ein Klacks...

Ich danke Euch sehr

und grüße herzlich

Newbeeefrown

 

 

 


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 leere Zeilen löschen
08.08.2024 19:23:10 Newbeee
NotSolved
09.08.2024 00:24:10 ralf_b
NotSolved
09.08.2024 09:15:47 Gast37991
NotSolved
09.08.2024 11:40:17 ralf_b
NotSolved