Mehrere Makros für eine Tabelle

Forumthread: Mehrere Makros für eine Tabelle

05.11.2007 22:11:00

Urs

Guten Abend an alle!
Wer kann mir sagen, wie sich folgende Makros und Module vom Code her zusammenfassen/verknüpfen lassen. Beide sollen für ein- und dieselbe Tabelle gelten:
Makro 1 (Kalenderfunktion):
Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Kalenderaufruf
If Target.Column = 5 Or Target.Column = 11 Then
Call OpenCalendar
End If
End Sub


Private Sub Worksheet_Activate()
Range("A3000").End(xlUp).Offset(1, 0).Select
End Sub

Makro 2 (Adressen):
Option Explicit
Private Zelle As Range 'Variable zum Merken des Addresse der selektierten Zelle


Private Sub ComboBox1_Change()
Dim Zeile As Long
'Aktionen nach Wertänderung der ComboBox
On Error GoTo Fehler
Application.EnableEvents = False
Zeile = Zelle.Row
If Me.ComboBox1.Value = "" Then
Zelle.ClearContents
Zelle.Select
'Formeln in Spalten T bis Z löschen
Range(Cells(Zeile, 20), Cells(Zeile, 26)).ClearContents
Else
If Not IsNull(Me.ComboBox1.Value) Then
'KundenNr (Text aus Combobox wird in Zahl umgewandelt)
Cells(Zeile, 19).Value = Val(Me.ComboBox1.Value)
'Formeln in Spalten T bis Z eintragen
Cells(Zeile, 20).FormulaR1C1 = _
"=IF(VLOOKUP(RC[-1],Auswahlliste,2,FALSE)=0,"""",VLOOKUP(RC[-1],Auswahlliste,2,FALSE))" 'Nr. _
_
Cells(Zeile, 21).FormulaR1C1 = _
"=IF(VLOOKUP(RC[-2],Auswahlliste,3,FALSE)=0,"""",VLOOKUP(RC[-2],Auswahlliste,3,FALSE))" ' _
Zusatz
Cells(Zeile, 22).FormulaR1C1 = "=VLOOKUP(RC[-3],Auswahlliste,5,FALSE)" 'Name 1
Cells(Zeile, 23).FormulaR1C1 = _
"=IF(VLOOKUP(RC[-4],Auswahlliste,6,FALSE)=0,"""",VLOOKUP(RC[-4],Auswahlliste,6,FALSE))" ' _
Name2
Cells(Zeile, 24).FormulaR1C1 = "=VLOOKUP(RC[-5],Auswahlliste,7,FALSE)" 'Strasse
Cells(Zeile, 25).FormulaR1C1 = "=VLOOKUP(RC[-6],Auswahlliste,8,FALSE)" 'PLZ
Cells(Zeile, 26).FormulaR1C1 = "=VLOOKUP(RC[-7],Auswahlliste,9,FALSE)" 'Ort
End If
End If
GoTo Beenden
Fehler:
If Err.Number = 91 Then
MsgBox "Bitte selektieren Sie zunächst eine andere Zelle!" & vbLf & _
"Diese Meldung erscheint nach dem Öffnen der Datei, wenn in der angezeigten " & _
"ComboBox direkt der Wert geändert wird ohne vorher eine andere Zelle zu selektieren."
Else
MsgBox "Fehler Nr. " & Err.Number & " ist aufgtreten!" & vbLf & vbLf & Err.Description
End If
Beenden:
Application.EnableEvents = True
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fehler
'Auf Spalte mit Kundennummer prüfen
If Target.Column = 19 And Target.Row > 1 And Target.Cells.Count = 1 Then
Set Zelle = Target
Me.ComboBox1.Value = Target.Value
End If
GoTo Beenden
Fehler:
MsgBox "Fehler Nr. " & Err.Number & " ist aufgtreten!" & vbLf & vbLf & Err.Description
Beenden:
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error GoTo Fehler
With Me.ComboBox1
'Auf Spalte mit Kundennummer prüfen
If Target.Column = 19 And Target.Row > 1 And Target.Cells.Count = 1 Then
Application.EnableEvents = False
Set Zelle = Target
.Value = Target.Value
.Top = Target.Top
.Left = Target.Offset(0, 1).Left
.Visible = True
Application.EnableEvents = True
Else
Set Zelle = Nothing
.Visible = False
End If
End With
GoTo Beenden
Fehler:
MsgBox "Fehler Nr. " & Err.Number & " ist aufgtreten!" & vbLf & vbLf & Err.Description
Beenden:
Application.EnableEvents = True
End Sub

Die Module lauten folgendermaßen:
Modul 1 (Kalender):
Option Explicit
Sub OpenCalendar()
' Displays the UserForm and calendar
' Shortcuts should be made to this procedure
frmCalendar.Show
End Sub

Sub Reset()
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Modul 2 (Adressen):
Option Explicit
Sub EventsAktivieren()
Application.EnableEvents = True
End Sub

Sub EventsDeAktivieren()
Application.EnableEvents = False
End Sub

Vielen Dank für Eure Hilfe.
Urs

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mehrere Makros für eine Tabelle

07.11.2007 09:42:00

Wolli

AW: Mehrere Makros für eine Tabelle

07.11.2007 09:42:00

Wolli

Hallo Urs, anscheinend hat bisher keiner die Muße gehabt, deinen ganzen Code durchzulesen, auch ich nicht. Nur so viel in Kürze: Pro Blatt darf es jede Ereignisprozedur nur einmal geben. Wenn Du zwei (oder mehr) hast, musst Du sie zusammenpacken, indem Du je nach Ereignisdetail (z.B. Target.Address oder so) eine if ... then ... else-Entscheidung oder ähnliches machst.
Bitte frag nochmal konkret nach, wenn's noch Probleme gibt.
Gruß, Wolli

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um mehrere Makros in einer Excel-Tabelle effektiv zusammenzufassen, kannst du die folgenden Schritte durchführen:

Öffne den Visual Basic for Applications (VBA) Editor:
- Drücke ALT + F11, um den VBA-Editor zu öffnen.
Kopiere die Makros in ein Modul:
- Füge die Makros, die du zusammenfassen möchtest, in ein einziges Modul ein. Achte darauf, dass du die Option Explicit am Anfang beibehältst.
Kombiniere die Ereignisprozeduren:
- Überprüfe die vorhandenen Worksheet_SelectionChange und Worksheet_Change Prozeduren. Du musst diese zusammenführen. Beispielsweise könntest du eine If ... Then ... Else-Struktur verwenden, um beide Ereignisse zu behandeln.
Beispiel:
```
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Column = 5 Or Target.Column = 11 Then
       Call OpenCalendar
   End If

   ' Weitere Bedingungen für andere Makros hier hinzufügen
End Sub
```
Teste das Makro:
- Speichere deine Änderungen und gehe zurück zu Excel. Teste, ob die kombinierten Makros wie gewünscht funktionieren.

Häufige Fehler und Lösungen

Fehler: "Pro Blatt darf es jede Ereignisprozedur nur einmal geben."
- Lösung: Stelle sicher, dass du die Prozeduren zusammenfasst und nicht duplizierst.
Fehler: ComboBox funktioniert nicht korrekt.
- Lösung: Überprüfe, ob die Application.EnableEvents richtig gesetzt ist, um Ereignisse zu aktivieren oder deaktivieren.
Fehler: "Bitte selektieren Sie zunächst eine andere Zelle!"
- Lösung: Achte darauf, dass die ComboBox nur dann einen Wert erhält, wenn eine Zelle korrekt ausgewählt ist.

Alternative Methoden

Eine alternative Methode zur Kombination von Makros könnte die Verwendung von Klassenmodulen sein, um die Logik zu kapseln und die Übersichtlichkeit zu verbessern. Du kannst auch UserForms nutzen, um die Benutzerinteraktion zu gestalten.

Praktische Beispiele

Hier sind einige Beispiele, wie man die oben genannten Makros kombinieren kann:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 5 Or Target.Column = 11 Then
        Call OpenCalendar
    End If

    If Target.Column = 19 And Target.Row > 1 Then
        Set Zelle = Target
        Me.ComboBox1.Value = Target.Value
    End If
End Sub

In diesem Beispiel wird der Kalender nur aufgerufen, wenn die Spalte 5 oder 11 ausgewählt wird. Gleichzeitig wird die ComboBox aktualisiert, wenn die Spalte 19 ausgewählt wird.

Tipps für Profis

Verwende die With-Anweisung: Dies kann den Code effizienter und leserlicher machen.
Dokumentiere deinen Code: Füge Kommentare hinzu, um die Logik hinter deinen Makros zu erklären.
Nutze die Excel-Fehlerbehandlung: Implementiere On Error-Anweisungen, um Fehler abzufangen und entsprechende Meldungen anzuzeigen.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass meine Makros nicht in Konflikt geraten? Um Konflikte zu vermeiden, kombiniere ähnliche Ereignisprozeduren in einer einzigen Prozedur, die alle notwendigen Bedingungen überprüft.

2. Was kann ich tun, wenn mein Makro nicht reagiert? Überprüfe die EnableEvents-Einstellung und stelle sicher, dass sie auf True gesetzt ist. Teste auch, ob das Makro im richtigen Kontext ausgeführt wird.

3. Wie kann ich die Leistung meiner Makros verbessern? Vermeide unnötige Berechnungen und Bildschirmaktualisierungen während der Ausführung deines Makros, indem du Application.ScreenUpdating = False am Anfang deines Codes und Application.ScreenUpdating = True am Ende hinzufügst.

Beliebteste Forumthreads (12 Monate)