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

Helfe beim Thema In die erste Leere Zelle einer Word-Tabelle springen - VBA in Microsoft Word Hilfe um das Problem gemeinsam zu lösen; 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... Dieses Thema im Forum "Microsoft Word Hilfe" wurde erstellt von Pater, 10. Mai 2006.

  1. Pater User

    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
     
    Pater, 10. Mai 2006
    #1
  2. freaky
    freaky Erfahrener User
    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.
     
    freaky, 10. Mai 2006
    #2
  3. Pater User
    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
     
    Pater, 11. Mai 2006
    #3
  4. freaky
    freaky Erfahrener User

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

    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.... ;-)
     
    freaky, 11. Mai 2006
    #4
Thema:

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

Die Seite wird geladen...
  1. In die erste Leere Zelle einer Word-Tabelle springen - VBA - Similar Threads - Leere Zelle Word

  2. Message Box wenn Zelle leer geblieben ist .

    in Microsoft Excel Hilfe
    Message Box wenn Zelle leer geblieben ist .: Hallo Zusammen, in der angehangenen Datei habe ich eine fortlaufende Liste in der Daten eingegeben werden. In Spalte A wird ein Datum mit Doppelklick eingefügt. In Spalte D ist eine...
  3. VBA gefüllte Spalten/Zellen bis zur nächsten leeren Zählen

    in Microsoft Excel Hilfe
    VBA gefüllte Spalten/Zellen bis zur nächsten leeren Zählen: Hallo zusammen, ich bin neu auf dem Gebiet, habt Nachsicht. Ich habe folgendes Problem... Ich habe in Tabellenblatt 1 Zellen die beschrieben werden, diese werden über einen Button in Zeile 4...
  4. Bedingte Formatierung, wenn eine Zelle leer dann Bereich formatieren

    in Microsoft Excel Hilfe
    Bedingte Formatierung, wenn eine Zelle leer dann Bereich formatieren: Hallo zusammen, Ich hätte gerne eine bedingte Formatierung, die eine gesamte Zeile formatiert, abhängig davon ob in einer Zelle etwas steht. Also je nach dem ob G3 leer oder nicht ist, sollen die...
  5. leere Zellen einer Pivot Tabelle nicht im Balkendiagramm anzeigen

    in Microsoft Excel Hilfe
    leere Zellen einer Pivot Tabelle nicht im Balkendiagramm anzeigen: Hallo, Ich möchte aus einer Pivot-Tabelle ein Balkendiagramm erstellen. Sagen wir, die Pivottabelle enthält 10 Spalten und 10 Zeilen, jedoch pro Zeile immer nur einen Wert. Die restlichen Felder...
  6. Wenn Zelle leer warte auf Zelle mit Inhalt

    in Microsoft Excel Hilfe
    Wenn Zelle leer warte auf Zelle mit Inhalt: Hi zusammen, ich stehe vor folgender Herausforderung: In Tabellenblatt 1 gebe ich in Spalte A1 einen Namen ein und befülle die restliche Tabelle In Tabellenblatt 2 benötige ich den Namen nur,...
  7. zusammenhängende leere Zellen zählen

    in Microsoft Excel Hilfe
    zusammenhängende leere Zellen zählen: Hallo zusammen, ich bin neu in diesem Forum. Ich habe intensiv nach einer Lösung für folgendes Problem gesucht - und versucht bestehende ähnliche Lösungen zu abstrahieren. Leider bisher ohne...
  8. leere Zelle - anscheinend doch nicht leer

    in Microsoft Excel Hilfe
    leere Zelle - anscheinend doch nicht leer: ich habe - Tabelle A - mit Werten und Daten - Tabelle B - nur Bezüge und Formeln ( beziehen sich auf Tabelle A ) Problem seit kurzem ( bisher ging es jahrelang ohne Probleme ): ( z.B. wird ein...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden