Hallo zusammen,
habe vor eine unter Word erstellte Tabelle mit Daten aus einem Excel-Sheet zu füllen. Dazu habe ich eine Zeile der Tabelle in Word erstellt, um die Ausmaße der Tabelle und der einzelnen Zellen vorzugeben.
Ich dachte mit, wie folgt vorzugehen:
Import\_Excel\_Word()
'Dimensionierung der Variablen
Dim objSheet As Object
’Löschen aller Tabellenzeilen (bis auf die erste Zeile) der Wordtabelle
'Inhalt der Tabelle in Word löschen
ActiveDocument.Tables(1).Select
Selection.Delete Unit:=wdCharacter, Count:=1
'Öffnen der Excel-Datei
'Ermitteln der letzten mit Inhalt gefüllten Zelle in der Excel-Datei
letzteZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
letzteSpalte =
'Tabelle (zellenweise) in Worddokument einfügen
'Aufheben der Verbindung zu den Objektvariablen
Set objSheet = Nothing
End Sub
Eventuell kann und möchte ja der eine oder die andere den fehlenden Code ergänzen.
Irgendwie habe ich bei VBA das Problem, keinen rechten Einstieg zu finden, wo ich das Lernen systematisch beginnen könnte, sodass ich auf diesem Weg meine Wissen mühsam erweitere.
Für Tipps zu guter Literatur zu diesem Thema bin ich sehr dankbar.
Gruß,
Pierre
Hi Pierre,
'Ermitteln der letzten mit Inhalt gefüllten Zelle in der
Excel-Datei
letzteZeile = IIf(IsEmpty(Cells(Rows.Count, 1)),
Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
letzteSpalte =
geht auch kürzer bzw einzeilig, aber fällt mir grad nicht ein wie:
Dim LetzteZeile As Long, LetzteSpalte As Integer
LetzteZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count,1).End(xlUp).Row, Rows.Count)
If LetzteZeile = 1 And Cells(1, 1) = "" Then LetzteZeile = 0
LetzteSpalte = IIf(IsEmpty(Cells(1, Columns.Count)), Cells(1,Columns.Count).End(xlToLeft).Column, Columns.Count)
If LetzteSpalte = 1 And Cells(1, 1) = "" Then LetzteSpalte = 0
MsgBox LetzteZeile
MsgBox LetzteSpalte
Für Tipps zu guter Literatur zu diesem Thema bin ich sehr
dankbar.
Da ist ein runterladbarer Kurs für Excel-VBA:
http://www.fernuni-hagen.de/urz/leseecke/index_offic…
Schau mal ins Brett der Textverabeitung, da ist ein Link zu einer Wordseite…
Gruß
Reinhard
Ermittlung letzter Zeile in Wordtabelle
Reinhard Reinhard,
habe deinen Code zu meiner VBA-Sammlung hinzugefügt.
Zurzeit gehe ich mein Problem etwas anders an und versuche meine Tabelle in Word direkt aus meiner Access-Datenbank mit Werten zu füllen.
Hast Du eventuell einen Tipp, wie sich mittels VBA die letzte Zeile einer Tabelle in Word ermitteln lässt?
Gruß,
Pierre
Hast Du eventuell einen Tipp, wie sich mittels VBA die letzte
Zeile einer Tabelle in Word ermitteln lässt?
Hi Pierre,
sorry, in Word kenne ich mich nicht aus.
Gruß
Reinhard