1. Dashboard
  2. Forum
    1. Unerledigte Themen
  3. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team-Mitglieder
    4. Trophäen
    5. Mitgliedersuche
  4. Tutorial Bereich
  • Deutsch
  • Anmelden
  • Registrieren
  • Suche
Dieses Thema
  1. Informatik Forum
  2. Webmaster & Internet
  3. Entwicklung

VBA-Tutorial

    • Suche
  • Adok
  • 12. Juni 2006 um 22:01
  • Unerledigt
  • Adok
    20
    Adok
    Mitglied
    Reaktionen
    49
    Punkte
    4.199
    Beiträge
    714
    • 12. Juni 2006 um 22:01
    • #1

    Hi,

    wer kann mir ein gutes Tutorial für Visual Basic for Applications empfehlen? Ich würde gerne ein einfaches Makro für MS Word schreiben; mir ist aber nicht ganz klar, wie ich Tabelleneinträge (Zellen, Zeilen) manipulieren sowie löschen kann.

  • NoUse
    7
    NoUse
    Mitglied
    Punkte
    425
    Beiträge
    67
    • 13. Juni 2006 um 09:41
    • #2

    Ich find für sowas die Office-Hilfe am aufschlussreichsten. Man muss halt vermuten können, wie das heißen kann, aber bei Tabellen etc. sollt das gehen:

    Code
    ActiveDocument.Tables(1).Cell(1, 1).Range = 1

    Weist der ersten Zelle der ersten Tabelle den Wert 1 zu. Bei den Objekten findest dann auch entsprechende Lösch-, Einfüge- und alle anderen Operationen.

  • Adok
    20
    Adok
    Mitglied
    Reaktionen
    49
    Punkte
    4.199
    Beiträge
    714
    • 13. Juni 2006 um 12:03
    • #3

    Danke, dein Tipp war hilfreich.

  • stormcrow
    6
    stormcrow
    Mitglied
    Punkte
    360
    Beiträge
    72
    • 13. Juni 2006 um 19:38
    • #4

    was auch oft hilft bei makros is makros aufzuzeichnen. einfach haendisch machen was man machen will und sich dann den generierten code anschauen. schon weisst wie die sachen heissen und wiesd was machen kannst.

    I came here to chew gum and kick ass, and I'm all out of gum...

  • Adok
    20
    Adok
    Mitglied
    Reaktionen
    49
    Punkte
    4.199
    Beiträge
    714
    • 13. Juni 2006 um 22:41
    • #5

    Nun, mein Code scheint syntaktisch korrekt zu sein, allerdings terminiert er anscheinend nicht - hat jemand eine Ahnung, woran es liegen könnte?

    Code
    Sub KillDupes()
        ' Lösche doppelte Tabelleneinträge
        prev$ = ""
        For i = 1 To 1500
            curr$ = ActiveDocument.Tables(1).Cell(i, 1).Range
            If curr$ = prev$ Then
                ActiveDocument.Tables(1).Rows(i).Range.Delete
            End If
            prev$ = curr$
        Next
    End Sub
    Alles anzeigen

    Eventuell an der Zahl 1500? Die Tabelle hat nämlich etwas weniger als 1500 Zeilen (weil ich bereits ein paar Duplikate manuell gelöscht habe), und nach jeder Löschung würde die Zeilenanzahl natürlich weiter abnehmen.

  • Adok
    20
    Adok
    Mitglied
    Reaktionen
    49
    Punkte
    4.199
    Beiträge
    714
    • 13. Juni 2006 um 23:10
    • #6
    Zitat von stormcrow

    was auch oft hilft bei makros is makros aufzuzeichnen. einfach haendisch machen was man machen will und sich dann den generierten code anschauen. schon weisst wie die sachen heissen und wiesd was machen kannst.

    Das werde ich ausprobieren. Danke für den Tipp!

  • Adok
    20
    Adok
    Mitglied
    Reaktionen
    49
    Punkte
    4.199
    Beiträge
    714
    • 14. Juni 2006 um 00:15
    • #7

    Ach ja, mein Programm funktioniert (mit der kleinen Änderung "Range.Delete" -> "Delete" - keine Ahnung, ob das überhaupt notwendig war), nur war ich zu ungeduldig. Dennoch: Komisch, warum dieses Makro auf einem Pentium IV so lange braucht.

  • stormcrow
    6
    stormcrow
    Mitglied
    Punkte
    360
    Beiträge
    72
    • 14. Juni 2006 um 17:53
    • #8

    naja, so makros sind leider nie schnell.

    I came here to chew gum and kick ass, and I'm all out of gum...

  • Maximilian Rupp 27. Dezember 2024 um 12:06

    Hat das Thema aus dem Forum Programmieren nach Entwicklung verschoben.

Jetzt mitmachen!

Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!

Benutzerkonto erstellen Anmelden

Benutzer online in diesem Thema

  • 1 Besucher

Rechtliches

Impressum

Datenschutzerklärung

  • Alles
  • Dieses Thema
  • Dieses Forum
  • Seiten
  • Forum
  • Lexikon
  • Erweiterte Suche
  • Deutsch
  • English
Zitat speichern