Office: In die erste Leere Zelle einer Word-Tabelle springen - VBA

Hallo Leute,

vielleicht habt IHR ja einen Tip für mich:

in einer Word-Tabelle habe ich in den einzelnen Zellen Einträge stehen. Der Benutzer kann neue Werte hinzufügen. Was ich erreichen möchte: Der Cursor soll immer auf die Zelle gesetzt werden, die der zuletzt ausgefüllten folgt. Sprich hinter die letzte Zelle, die Inhalt enthält.

Mit folgendem Code kann ich ja in die letzte Zelle der gesamten Tabelle springen:

Code:

Selection.EndOf Unit:=wdTable

Kann man das vieleicht noch für den oben beschrieben Fall anpassen oder gibt es da einen ganz anderen Lösungsansatz?

Vielen Dank für Eure Mühe!

Pater

 

Hi,

ich habe mich entschlossen doch noch zu antworten....Warum, hast du in den anderen Foren sicherlich gelesen. Ich mache das auc nur, da ich den Code eh schon hatte...

Es gibt zwar auch eine Antwort bzw. Lösungsansatz, der aber wohl nicht das treffen wird, was Du möchtest. Dort wird aus der falschen Richtung die Tabelle durchsucht. Daher findest Du nicht die letzte leereZelle sondern die 1. leere Zelle...

Hier die Lösung für die letzte beschriebene Zelle in einer Tabelle:

Code:

Sub Tabelle_letzte_Zelle()

Dim Zelle As Word.Cell
Dim Zeile As Long
Dim Spalte As Long

If Selection.Tables.Count < 1 Then
    MsgBox ("Keine Tabelle!")
    Exit Sub
End If
    
With Selection.Tables(1)
    For Zeile = .Rows.Count To 1 Step -1
        For Spalte = .Columns.Count To 1 Step -1
            a = .Cell(Zeile, Spalte).Range
            If Zellwert(.Cell(Zeile, Spalte).Range) <> "" Then
                .Cell(Zeile, Spalte).Select
                Selection.MoveRight wdCell, 1
                Selection.Collapse wdCollapseStart
                Exit Sub
            End If
        Next Spalte
    Next Zeile
End With

End Sub

Function Zellwert(Zellinhalt As String) As String
'Absatzmarken aus dem String löschen...
Dim strWert As String
Dim Zeichen As String

    strWert = Zellinhalt
    Zeichen = Left(strWert, 1)
    Do While InStr(1, strWert, Chr(13)) <> 0
        strWert = Left(strWert, Len(strWert) - 1)
    Loop
        
    Zellwert = strWert

End Function

Nachdem eingie Leute sich Mühe gegeben haben wäre es richtig auch in den anderen Foren ggf. die Lösung zu posten...oder zumindest sagen, dass das Problem gelöst ist.

 

Hallo freaky,

vielen Dank für deine Antwort, das werde ich gleich mal austesten.

Danke möchte ich auch dafür sagen, dass ihr mich direkt zur Ordnung gerufen habt - im nachhinein kann ich nachvollziehen, was euch an Crosspostings nervt.

Andererseits frage ich mich nun: Werden die verschiedenen Foren, in denen ich gepostet habe, eigentlich von den gleichen Leuten betreut, da ich ja direkt "unangehnehm aufgefallen" bin :-)

Aber nicht's für ungut - ich habe immer stets sehr gute Anregungen bekommen und möchte nicht durch falsches Verhalten, euch und auch mir das ganze vermasseln.

Pater

 

Hi,

...kein Diskssion wegen Crossposting... ist ja auch alles gesagt! :roll:

..und noch eine klare Antwort: nein! ;-)

Mir war hier nur die Lösung wichtig.... ;-)