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. 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...
  3. Kommentare löschen wenn Zelle leer

    in Microsoft Excel Hilfe
    Kommentare löschen wenn Zelle leer: Guten Tag zusammen. Ich stehe vor folgendem Problem. Mit dem Makro: Private Sub Worksheet_Change(ByVal Target As Range) Target.NoteText "Am " & Format(Date, "dd.mm.yy") & " um " & Format(Now(),...
  4. Leere Zellen suchen und Zeilen kopieren

    in Microsoft Excel Hilfe
    Leere Zellen suchen und Zeilen kopieren: Hallo liebe Excel Profis Ich hätte gerne Eure Hilfe in Anspruch genommen. Ich habe ein Tabellenblatt wo ich in Spalte B nach leeren Zellen suchen möchte. Sollten dort leere Zellen sein, möchte...
  5. In Spalte erste Leere Spalte dann Wert/Text ausgeben

    in Microsoft Excel Hilfe
    In Spalte erste Leere Spalte dann Wert/Text ausgeben: Hallo, schon mal Danke für die Hilfe =) Ich würde gern in meiner kleinen Datenbank, nach einem Eintrag eines Kunden, die letzte Kundennummer des eingetragene Kunden in einer Zelle ausgeben...
  6. excel zellen komplett entfernen

    in Microsoft Excel Hilfe
    excel zellen komplett entfernen: Hallo zusammen, ich habe eine Excel-Frage..bzw. ein Excel Problem....vielleicht gibts dafür aber - hoffentlich - ne einfache Lösung. ich habe eine exceltabelle und es gibt nur einträge in der...
  7. VBA - Zellen benutzerabhängig leeren/füllen

    in Microsoft Excel Hilfe
    VBA - Zellen benutzerabhängig leeren/füllen: Hallo zusammen, ich möchte gerne via Makro für die Urlaubsplanung für Benutzer1-5 die Einsicht auf alles ermöglichen, während die anderen Benutzer in der Zeile 382-389 nur ihren eigenen...
  8. Zellen markieren bei Datum wenn Zellen noch leer

    in Microsoft Excel Hilfe
    Zellen markieren bei Datum wenn Zellen noch leer: Hallo erstmal Ich führe ein kleines Hotel und habe bisher zwei Tabellen auf einem Excel Sheet. Bei der einen erfasse ich die Gäste mit Name etc. sowie dem Ankunfts-und Abreisedatum. Bei der...

Users found this page by searching for:

  1. vba word zelle intabelle anspringen

    ,
  2. vba springe in erste leere spalte

  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