Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Code einer Tabelle zuweisen

Forumthread: VBA Code einer Tabelle zuweisen

VBA Code einer Tabelle zuweisen
29.11.2002 12:17:36
Stefan
Hallo,
ich möchte aus einer Ursprungsarbeitsmappe einer Tabelle in einer neuen Arbeitsmappe einen VBA-Code zuweisen. Mit Exportieren und Importieren kann ich nur Module in die neue Mappe einfügen, diese aber nicht der entsprechenden Tabelle zuweisen. Wer kann mir helfen? Hintergrund: In der neuen Mappe sollen Änderungen automatisch mit roter Schrift formatiert werden.
Viele Grüße
Stefan
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: VBA Code einer Tabelle zuweisen
29.11.2002 15:38:47
M. Kuhn
Moin Stefan,

Du meinst sicher die Makros, die automatisch durch verschiedene Ereignisse auf dem Tabellenblatt 'gerufen' werden. Diese liegen auch direkt 'hinter' dem Tabellenblatt (VBA-Editor, Doppelklick auf entspr. Blatt im Projektfenster).
Ein Beispiel für ein Makro(Name), das bei jeder Wertänderung des Blattes gerufen wird:

Private Sub Worksheet_Change(ByVal Target as Range)

In diesem Makro kannst Du Deine Makros (in Modulen) rufen, oder auch direkt den Code zu Schriftänderung eingeben.

MfG Mario

Anzeige
;
Anzeige

Infobox / Tutorial

VBA Code einer Tabelle zuweisen

Schritt-für-Schritt-Anleitung

  1. Öffne die Ursprungsarbeitsmappe in Excel, wo sich der VBA-Code befindet.

  2. Öffne den VBA-Editor: Drücke ALT + F11.

  3. Identifiziere das Tabellenblatt, dem du den Code zuweisen möchtest. Doppelklicke auf das gewünschte Blatt im Projektfenster.

  4. Füge den gewünschten Code ein. Hier ist ein Beispiel, das bei jeder Wertänderung im Blatt ausgeführt wird:

    Private Sub Worksheet_Change(ByVal Target As Range)
    ' Beispiel für Schriftänderung
    Target.Font.Color = RGB(255, 0, 0) ' Setzt die Schriftfarbe auf rot
End Sub

  5. Speichere die Änderungen und schließe den VBA-Editor.

  6. Teste die Funktion in der neuen Arbeitsmappe, um sicherzustellen, dass der VBA-Code wie gewünscht funktioniert.

Häufige Fehler und Lösungen

  • Fehler: VBA-Code wird nicht ausgeführt

    • Lösung: Stelle sicher, dass der Code im richtigen Blatt platziert ist. Doppelte Überprüfung der Blatt-Referenz im VBA-Editor kann helfen.

  • Fehler: Schriftänderung funktioniert nicht

    • Lösung: Überprüfe, ob die Zellen, die du bearbeitest, tatsächlich in dem Bereich sind, der im Target-Parameter angegeben ist.

Alternative Methoden

Wenn du den VBA-Code nicht manuell zuweisen möchtest, kannst du auch eine Makro-Schaltfläche verwenden:

  1. Füge eine Schaltfläche auf deinem Arbeitsblatt ein (Entwicklertools → Einfügen → Schaltfläche).
  2. Verknüpfe die Schaltfläche mit dem Makro, das du erstellt hast, um die Schriftfarbe zu ändern.
  3. Klicke auf die Schaltfläche, um die Funktion auszuführen.

Praktische Beispiele

  • Beispiel 1: Schriftfarbe bei Wertänderung 

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A1:A10")) Is Nothing Then
        Target.Font.Color = RGB(255, 0, 0) ' Ändert die Schriftfarbe auf rot
    End If
End Sub

  • Beispiel 2: Schriftänderung basierend auf Bedingungen

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value < 0 Then
        Target.Font.Color = RGB(255, 0, 0) ' Rot für negative Werte
    Else
        Target.Font.Color = RGB(0, 0, 0) ' Schwarz für positive Werte
    End If
End Sub

Tipps für Profis

  • Nutze die Application.EnableEvents Methode, um zu verhindern, dass dein Code in einer Endlosschleife läuft, wenn du innerhalb deines Worksheet_Change Makros Änderungen vornimmst:

    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    ' Deine Code-Logik hier
    Application.EnableEvents = True
End Sub

  • Organisiere deinen VBA-Code in Module, um die Lesbarkeit und Wartung zu verbessern. Vermeide übermäßigen Code auf dem Tabellenblatt.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass der VBA-Code in der neuen Arbeitsmappe funktioniert?
Stelle sicher, dass der Code im richtigen Blatt im VBA-Editor zugewiesen ist und dass die Makros aktiviert sind.

2. Was muss ich tun, wenn ich mehrere Blätter mit ähnlichem VBA-Code habe?
Du kannst denselben Code in jedes Blatt einfügen oder eine Funktion in einem Modul erstellen, die von jedem Blatt aufgerufen wird.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige