Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Cursor in einer Tabelle bewegen
zurück: komm nich drauf weiter: Text als RTF in MEMO-Feld in ACCESS-Datenbank speichern Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Berit1818
Gast


Verfasst am:
04. Okt 2007, 17:21
Rufname:

Cursor in einer Tabelle bewegen - Cursor in einer Tabelle bewegen

Nach oben
       Version: Office 2k (2000)

Ich habe eine Word-Tabelle deren Zellen in den Spalten n-Zeilen haben. Wie kann ich den Cursor in die darunterliegende Zelle bekommen? Kann ich den Zellinhalt dabei gleich markieren?
HermannL
Bisschen-was-Wisser


Verfasst am:
05. Okt 2007, 10:44
Rufname:
Wohnort: Köln


AW: Cursor in einer Tabelle bewegen - AW: Cursor in einer Tabelle bewegen

Nach oben
       Version: Office 2k (2000)

Hi Berit,
da ich nicht weiß, wie das Ganze eingebunden werden soll, hier mal eine evtl. umständliche Lösung:
Code:
Sub Cursor_runter()
Selection.MoveDown
Selection.HomeKey Unit:=wdLine
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
End Sub

_________________
Gruß,
Hermann

Rückmeldung willkommen, aber bitte nicht per PN!
Berit1818
Gast


Verfasst am:
08. Okt 2007, 09:57
Rufname:

AW: Cursor in einer Tabelle bewegen - AW: Cursor in einer Tabelle bewegen

Nach oben
       Version: Office 2k (2000)

Hallo Hermann,
das klappt leider nicht. Auf diesem Weg bekomme ich den Cursor eine Zeile tiefer. Wenn die Tabellen-Zelle aber z.B. 3 Zeilen Text enthält, bleibe ich damit in der gleichen Zelle. Ich muss aber in die darunterliegende Zelle und nicht Zeile.
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
08. Okt 2007, 12:38
Rufname:
Wohnort: Leipzig

AW: Cursor in einer Tabelle bewegen - AW: Cursor in einer Tabelle bewegen

Nach oben
       Version: Office 2k (2000)

Hallo Berit,

ja, natürlich geht das. Dazu muss man erstmal ermitteln, in welcher Zelle der Tabelle sich der Cursor (Selection) befindet, hier mal ein Bsp.:
Code:
Sub DarunterliegendeZelleMarkieren()

    Dim myTable As Word.Table
    Dim rngSel As Word.Range
    Dim myRow As Long, myCol As Long
   
    Set myTable = Selection.Tables(1)
    Set rngSel = Selection.Cells(1).Range
    myRow = Selection.Rows(1).Index
    myCol = Selection.Columns(1).Index
    myTable.Cell(myRow + 1, myCol).Select

    Set rngSel = Nothing
    Set myTable = Nothing

End Sub

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Gast



Verfasst am:
22. Okt 2007, 11:42
Rufname:

AW: Cursor in einer Tabelle bewegen - AW: Cursor in einer Tabelle bewegen

Nach oben
       Version: Office 2k (2000)

Hallo Lisa,

ich erhalte jetzt den Laufzeitfehler 5992

"Es können keine individuellen Spalten in dieser Sammlung adressiert werden, weil die Zellenweite der Tabelle unterschiedliche Werte aufweist."

Das Makro bleibt bei " myCol = Selection.Columns(1).Index" stehen. Der Cursor hat sich bis dahin noch nicht bewegt.

Doof. In Excel wäre das nur eine lapidare Befehlszeile gewesen.
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
23. Okt 2007, 19:26
Rufname:
Wohnort: Leipzig

AW: Cursor in einer Tabelle bewegen - AW: Cursor in einer Tabelle bewegen

Nach oben
       Version: Office 2k (2000)

Hallo Berit,

das liegt offenbar daran, dass es keine "normale" Tabelle ist (entweder verbundene oder geteilte Zellen enthält oder eben breitere oder schmalere). Bei "normalen" Tabellen funktioniert es.

Probier mal so (das geht bei mir):
Code:
Sub DarunterliegendeZelleMarkieren()

    Dim myTable As Word.Table
    Dim myRow As Long, myCol As Long
   
    Set myTable = Selection.Tables(1)
    myRow = Selection.Cells(1).RowIndex
    myCol = Selection.Cells(1).ColumnIndex
    myTable.Cell(myRow + 1, myCol).Select

    Set myTable = Nothing

End Sub

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Gast



Verfasst am:
26. Okt 2007, 13:23
Rufname:


AW: Cursor in einer Tabelle bewegen - AW: Cursor in einer Tabelle bewegen

Nach oben
       Version: Office 2k (2000)

Razz Razz Razz
Hat funktioniert. Vielen Dank für die tolle Hilfe.

Gruß
Berit
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Tabelle mit verschiedenen Artikeln 0 Lenton 76 31. Jan 2014, 12:15
Lenton Tabelle mit verschiedenen Artikeln
Keine neuen Beiträge Word Serienbriefe: Tabelle in Serienbrief mit unterschiedlicher Zeilenanzahl 2 KitKat 605 04. Sep 2012, 08:39
KitKat Tabelle in Serienbrief mit unterschiedlicher Zeilenanzahl
Keine neuen Beiträge Word Serienbriefe: Serienbrief-Steuerungsfunktion in Word Tabelle 3 chrimap 612 13. Aug 2012, 16:42
chrimap Serienbrief-Steuerungsfunktion in Word Tabelle
Keine neuen Beiträge Word Serienbriefe: Die externe Tabelle hat nicht das erwartete Format 8 sunshine-sr 12629 23. Apr 2012, 11:01
Gast Die externe Tabelle hat nicht das erwartete Format
Keine neuen Beiträge Word Serienbriefe: Tabelle auswerten 1 vskom 481 17. Nov 2011, 17:46
vskom Tabelle auswerten
Keine neuen Beiträge Word Serienbriefe: Rechnung als Serienbrief mit Tabelle 2 tinsche33 2005 30. Dez 2010, 11:19
tinsche33 Rechnung als Serienbrief mit Tabelle
Keine neuen Beiträge Word Serienbriefe: Serienbrief dynamische Tabelle 0 namlo 1209 31. Aug 2010, 19:05
namlo Serienbrief dynamische Tabelle
Keine neuen Beiträge Word Serienbriefe: SQL Abfrage in Word Tabelle in Euro konvertieren 1 pursche75 1507 30. Mai 2010, 17:02
charlybrown SQL Abfrage in Word Tabelle in Euro konvertieren
Keine neuen Beiträge Word Serienbriefe: Exel Tabelle mit Word Verknüpfen? 2 gw47 1822 07. Nov 2009, 17:31
gw47 Exel Tabelle mit Word Verknüpfen?
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Header und Tabelle 11 Krischer 1385 04. Nov 2009, 02:13
charlybrown Serienbrief mit Header und Tabelle
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit dynamischer Tabelle 2 samba 1896 24. Apr 2009, 20:40
samba Serienbrief mit dynamischer Tabelle
Keine neuen Beiträge Word Serienbriefe: Leerzeilen in Tabelle/Serienbrief unterdrücken 2 joni.2000 3235 18. Jan 2009, 22:10
charlybrown Leerzeilen in Tabelle/Serienbrief unterdrücken
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Dreamweaver Forum