Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1420to1424
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
1420to1424
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeilen Import trotz fehlendem Inhalt

Leerzeilen Import trotz fehlendem Inhalt
20.04.2015 09:08:31
Manuel
Hallo,
Habe folgendes Problem: Ich muss eine Excel Datei in eine DB importieren. Die Datei hat rund 40 Sheets, Spalten A bis H verwendet in allen Sheets (Art, Jahr, ID-Nummer etc.), sowie den eigentlichen Einträgen pro Zeile.
Nicht jede Zeile hat in jeder Spalte Einträge, da bspw. das Jahr unbekannt ist. Es gibt also unbefüllte Zellen in den befüllten Zeilen. Die Einträge pro Sheet variieren zwischen 2-3 bis zu ca. 60 Einträgen. Soweit so gut.
Nun wurden die Sheets vermutlich per Copy Paste kopiert, aus einer Vorlage, die wohl mal rund 3400 Zeilen umfasste. Diese Zeilen waren wohl mal befüllt, entsprechend übernimmt es mir beim Import in die DB alle 3400 Zeilen, auch wenn nur 5 Zeilen tatsächlich befüllt sind. Was kann ich da machen?
Ich habe schon ziemlich rumgesucht, aber keine passende Antwort gefunden.
Vielen Dank für Tipps

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leerzeilen Import trotz fehlendem Inhalt
20.04.2015 09:15:15
Nepumuk
Hallo,
drück mal auf STRG+Ende, markiere von da aus die Zeilen bis zur ersten Datenzeile und drück die Entf-Taste. Nach dem Speichern der Mappe sollten die Leerzeilen wirklich leer sein. Das kannst du auch am Scrollbalken rechts sehen.
Gruß
Nepumuk

AW: Leerzeilen Import trotz fehlendem Inhalt
20.04.2015 09:18:52
Daniel
Hi
Lösche mal alle Zeilen unterhalb der Daten, dh von der ersten leeren Zeile bis zur letzten Zeile auf dem Blatt und speichere und schliesse die Datei dann nochmal vor dem nächsten Import.
Gruß Daniel

AW: Leerzeilen Import trotz fehlendem Inhalt
20.04.2015 09:20:57
Manuel
Hallo,
Danke für die Inputs. Das ist die manuelle Variante, d.h. somit muss ich das für jedes einzelne Sheet machen, richtig?
Gruss Manuel

Anzeige
AW: Leerzeilen Import trotz fehlendem Inhalt
20.04.2015 09:26:02
Nepumuk
Hallo,
wenn du eine Spalte hast in der garantiert immer Daten bist zum Ende der Liste stehen, kann ich dir auch eine kleine Löschroutine schreiben.
Gruß
Nepumuk

AW: Leerzeilen Import trotz fehlendem Inhalt
20.04.2015 09:49:57
Manuel
Hallo Nepumuk,
das mit der Routine wär super, da ich vermute, dass die restlichen noch zu importierenden Excel-Files ähnlich aufgebaut sind.
Zudem bin ich aus Prinzip neugierig, da ich bereits einen "VBA-Experten" in meinem Umfeld zu Rate gezogen habe, der es allerdings nur ansatzweise lösen konnte.
Danke im Voraus.
Gruss Manuel

AW: Leerzeilen Import trotz fehlendem Inhalt
20.04.2015 10:11:44
Nepumuk
Hallo,
teste mal mit einer Kopie der Mappe. Nach dem Speichern sollten die leeren Bereich tatsächlich leer sein. Prüfen kannst du das in dem du mal STRG+Ende drückst.
Option Explicit

Public Sub ClearEmptyRange()
    Dim objCell As Range, objWorksheet As Worksheet
    For Each objWorksheet In ThisWorkbook.Worksheets
        With objWorksheet
            Set objCell = .Cells.Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, _
                SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)
            .Range(.Cells(1, objCell.Column + 1), .Cells(.Rows.Count, .Columns.Count)).Clear
            Set objCell = .Cells.Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, _
                SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
            .Range(.Cells(objCell.Row + 1, 1), .Cells(Rows.Count, .Columns.Count)).Clear
        End With
    Next
    Set objCell = Nothing
End Sub

Gruß
Nepumuk

Anzeige
AW: Leerzeilen Import trotz fehlendem Inhalt
20.04.2015 10:24:50
Manuel
Hallo Nepumuk,
Tiptop!! Funktioniert tadellos...!! Vielen lieben Dank!
Gruss Manuel

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige