Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
224to228
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
224to228
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

EINE FRAGE AN DIE PROFIS

EINE FRAGE AN DIE PROFIS
04.03.2003 16:12:51
Chris
Hallo LEUTE!

Ich habe ein mega-großes Problem!!!

Leider handelt es sich nicht um eine Excel-Datei sonder um eine Word-Vorlage! Aber vielleicht könnt ihr mir trotzdem helfen!

ALSO MEIN PROBLEM:

Ich habe im Word eine Tabelle.
Diese Tabelle besteht aus 10 Zeilen.

Aus einem externen Programm erhalte ich Datensätze, die in die Tabelle eingefügt werden.

Jetzt kommt es manchmal vor, dass nicht alle 10 Zeilen benötigt werden!!!

HIER MEINE FRAGE:

Kann man in VBA etwas programmieren, dass er automatisch die leeren Zeilen löscht, bis er eine Zeile mit Daten gefunden hat??

BITTE UM HILFE

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: EINE FRAGE AN DIE PROFIS
04.03.2003 17:28:19
Thomas Risi

Hallo Chris

Ich habe keine Ahnung von Word, aber so könnte es etwa funktionieren (ungetestet) ...


With doc  ' Das Dokument 'doc'

    Merker = False

    For i = .Tables(1).Rows.Count To 1 Step -1
        For Each Item In .Tables(1).Rows(i).Cells
            If Not Item.Range.Text = "" Then
                Merker = True
                Exit For
            End If
        Next
        If Not Merker Then .Tables(1).Rows(i).Delete
        Merker = False
    Next i

End With
 

     Code eingefügt mit Syntaxhighlighter 1.15


Gruß
Thomas

Risi Thomas Softwareentwicklung



Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige