Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal

Der kurze Weg zum Ziel: Auftragsprogrammierung

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

per Click auf eine bestimmte Prozedur zugreifen | Herbers Excel-Forum


Betrifft: per Click auf eine bestimmte Prozedur zugreifen von: Erwin
Geschrieben am: 31.01.2010 18:35:53

Hallo Experten,
ich habe mir für unsere Tippgemeinschaft (3Personen) ein Programm erstellt, in dem jeder seinen _
Tipp und Torschützen eingeben kann. Diese werden dann mit den anderen Eingaben abgeglichen und _ nur dann akzeptiert, wenn sie nicht zweimal vorkommen. Anschließend werden die Eingaben mit weißer Schrift unsichtbar gemacht und per Gültigkeit gesperrt. Die Adresszeile wird beim Starten ausgeblendet. Funktioniert mit folgendem Code einwandfrei:


Sub datenabgleich_mane()
If Range("k11") = Range("k12") Or Range("k11") = Range("k13") Then
    MsgBox "Sorry, diesen Tipp gibt es bereits", vbCritical, "Überprüfe Tipp von Mane..."
    Range("c11", "d11").ClearContents
    Range("c11").Select
Else
    MsgBox "Tipp ist OK!!", vbInformation, "Überprüfe Tipp von Mane..."
End If
If Range("f11") = Range("f12") Or Range("f11") = Range("f13") Then
    MsgBox "... der Torschütze ist leider schon vergeben", vbCritical, "Sorry Mane..."
    Range("f11").ClearContents
Else
    MsgBox "Mane, Torschütze ist voll korrekt!!", vbInformation, "Gut gewählt..."
        If Range("C11").Value = "" Then
        Range("C11").Select
        End If
End If
If Range("c11") <> "" And Range("d11") <> "" And Range("f11") <> "" Then
    Range("c11:f11").Select
    Selection.Font.ColorIndex = 2
    Range("j11").Value = "ok"
End If

End Sub

Diesen Code habe ich dreimal für jeden Tipper geschrieben (


Sub datenabgleich_mane(), 


Sub datenabgleich_gerd(), 


Sub datenabgleich_erwin()) und  jeder hat eine eigene Schaltfläche um nach der letzten Eingabe   _
 _
_
den Abgleich starten zu lassen.

Jetzt meine Frage: Kann ich hierfür auch nur eine einzige Schaltfläche benutzen? Also, wenn der  _
 _
 _
letzte Eintrag in f11 ist, dann starte 


Sub datenabgleich_mane(), wenn er in f12 ist, starte 


Sub datenabgleich_gerd() und f13 


Sub datenabgleich_erwin(). 
Habe schon einiges probiert, aber irgendwie klappt es nicht.

Vielleich hat jemand eine einfach Lösung, wäre super

Danke im voraus
Erwin





   


Betrifft: AW: per Click auf eine bestimmte Prozedur zugreifen





von: Beverly

Geschrieben am: 01.02.2010 09:27:32


Hi Erwin,



überprüfe im worksheet_Change Ereignis des Tabellenblattes, in welcher Zelle der Eintrag erfolgt ist
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        Select Case Target.Address
            Case "$F$11"
                datenabgleich_mane
            Case "$F$12"
                datenabgleich_gerd
            Case "$F$12"
                datenabgleich_erwin
        End Select
    End If
End Sub


GrußformelBeverly's Excel - Inn






   


Betrifft: AW: per Click auf eine bestimmte Prozedur zugreifen





von: Erwin

Geschrieben am: 01.02.2010 15:03:43


Hallo Karin,



vielen Dank für Deine Antwort, funktioniert einwandfrei!!



Tschau

Erwin
















 




  
















Beiträge aus den Excel-Beispielen zum Thema "per Click auf eine bestimmte Prozedur zugreifen"


 

 

Befindet sich die aktive Zelle in einem bestimmten Bereich?
  

Werte eins bestimmten Monats summieren
  

 



Werte 1 und 0 in einem bestimmten Verhältnis zufällig anordnen
  

Alle Links zu einer bestimmten Arbeitsmappe löschen
  

 



Anzahl eines bestimmten Wochentages im Monat
  

Alle Dateien ab einem bestimmten Datum listen
  

 



Daten eines bestimmten Jahres filtern
  

Word mit bestimmtem Dokument starten
  

 



Bestimmte Anzahl von Zeichen zulassen
  

Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen
  

 



Zeile löschen, wenn ein bestimmter Wert vorkommt
  

xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen
  

 



Nur Zeilen mit bestimmtem Inhalt in HTML-Datei konvertieren
  

Kommentarfenster in bestimmter Größe erstellen
  

 



Wert einer bestimmten Zelle merken
  

Werte aus UserForm-TextBox in bestimmten Formate übertragen
  

 



Feststellen, ob eine bestimmte Zelle markiert ist
  

Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln
  

 



Zeichenfolgen ändern, wenn ein sie einen bestimmten Text enthalten
  

Werte eines bestimmten Wochentages und eines Zeitbereiches addieren
  

 



Bestimmte Zeichen in einer UserForm-TextBox markieren
  

Bei Aktivierung einer bestimmten Tabelle in Vollbildmodus schalten
  

 



Cursor in bestimmtem Zellbereich in Eieruhr verwandeln
  

Anzahl eines Namens in einer bestimmten Schriftfarbe ermitteln
  

 



Anzahl der Einträge zu einer bestimmten Kalenderwoche
  

Hintergrundfarbe einer Zeile, wenn bestimmter Wert in 1 Zelle
  

 



Errechnung der Maximaltemperatur an bestimmtem Datum
  

Datenmaske mit einem bestimmten Datensatz aufrufen
  

 



Nur Zeilen mit bestimmtem Inhalt kopieren
  

Aus Liste Anzahl der Januartage eines bestimmten Jahres listen
  

 



Einem Datum eine bestimmte Anzahl von Jahren hinzufügen
  

Letzte Zeile mit einem bestimmten Anfangsbuchstaben markieren
  

 



Seitenumbruch nach Zeilen mit bestimmtem Inhalt einfügen
  

Bestimmte Wochentage ohne Feiertage listen
  

 



Dateien mit bestimmtem Inhalt suchen
  

Fehler in Workbook_Open-Prozedur abfangen
  

 



Arbeitsmappe anlegen und Workbook_Open-Prozedur schreiben
  

Alle Prozeduren und Funktionen auflisten
  

 



Workbook_Open-Prozedur beim VBA-Aufruf ausschalten
  

Zellinhalt während der Laufzeit in Prozedur übernehmen
  

 



SVERWEIS als Ereignisprozedur
  

Bei jedem Aufruf eine andere Prozedur aufrufen.
  

 



Mit der Indirekt-Funktion auf geschlossene Arbeitsmappe zugreifen
  

In einer Schleife auf Elemente einer UserForm zugreifen