Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Gültikeitsauswahl Makro starten

Bei Gültikeitsauswahl Makro starten
23.12.2007 18:02:23
Bernd
Hallo Freaks,
ich möchte bei der Auswahl einer neuen Kostenselle über ein Gültikgsauswahl ein Makro starten, welches einen bestimmten Bereich dann löcht. Das Makro kriege ich ja mit Rekorder hin, aber die Verknüpfung mit der Gültigkeitsauswahl stellt micht mal wieder vor unüberwindbare Hürden. Das Archiv hat mir nicht weiter geholfen...

Sub Loeschen_Ueberleitung()
Range("n15:V26").Select
Selection.ClearContents
Range("n29:V40").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=12
Range("n8:V59").Select
Selection.ClearContents
Range("n67:V78").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-30
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
End Sub


Wer will mir denn helfen bzw. einen Tipp geben?
Grüße
Bernd

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Gültikeitsauswahl Makro starten
23.12.2007 18:07:00
Hajo_Zi
Hallo Bernd,
in VBA unter der Tabelle

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address  "$A$1" Then Exit Sub
Range("n15:V26").ClearContents
Range("n29:V40").ClearContents
Range("n8:V59").ClearContents
Range("n67:V78").ClearContents
End Sub



für was steht das "$A$1" imCode
23.12.2007 18:26:30
Bernd
Hi HaJo,
erste inmal Danke für deine promte Hilfe.
eine Frage bitte: für was steht das "$A$1" imCode?
Ich habe deinen code in das entsprechende Tab.blatt eingefügt. Das Auswahlmenue ist in Zelle E2. ichhabe dein A1 mit meinemE2 ersetzt, aber trotzdem wird der gewünschte Bereich nciht gelöscht...
Kannst du noch einmal heflen? Bitte.
Grüße
Bernd

Anzeige
AW: für was steht das "$A$1" imCode
23.12.2007 18:31:00
Hajo_Zi
Hallo Bernd,
Du hast es genauso geschrieben wie meine Zelladresse?
Gruß Hajo

@haJo
23.12.2007 18:40:03
Bernd
Vergebung bitte,
die $ hatte ich nicht mitgeschrieben. Werde in Zukunft auch auf dieses Detail achten.
Danke Dir noch einmal.
Grüße
Bernd

@Bernd & Hajo - kleine Verkürzung ;o)
23.12.2007 21:35:00
Matthais
Hallo Hajo, hallo Bernd
Habt ihr schon bemerkt, das 2 Range-Objekte in einem dritten Range-Objekt vorkommen?
diese beiden Range-Objekte
  • Range("n15:V26")

  • Range("n29:V40")

    • kommen hier drin vor.
  • Range("n8:V59")

    • Es reicht also:
    
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Union(Range("n8:V59"), Range("n67:V78")).ClearContents
End If
End Sub


    oder so: (ist Geschmackssache ... )

    
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address  "$A$1" Then Exit Sub
Union(Range("n8:V59"), Range("n67:V78")).ClearContents
End Sub



    Frohes Weihnachtsfest ...

    Userbild

    Anzeige
    Gruß Matthias, nicht Matthais ;o) __oT
    23.12.2007 21:45:47
    Matthias

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige