Office: Makro dass ein Makro ausführt wenn..

Hi,

damit Du siehst, was ich mit "Simplifizieren" meine:
Ich hab mal alles aus Deiner Datei entfernt bis auf das Blatt "Preisliste arbeiten". Darin hab ich auch erstmal alle Objekte entfernt.
Mach mal im Bereich D19:D227 einen Doppelklick und sieh was passiert. Dann mach in der selben Zelle noch nen Doppelklick.
Ich hab das jetzt noch nicht innerhalb des Bereiches D19:D227 logisch eingeschränkt (das soll ja nicht für jede Zeile funktionieren) - aber es soll Dir nur das Prinzip zeigen.
Der einzig dafür vorhandene Code sieht im Moment so aus:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
    If Not Intersect(Target, Range("D19:D227")) Is Nothing Then
        If .Value = "ü" Then
            .Resize(1, 2).ClearContents
        Else
            .Value = "ü"
            .Offset(0, 1) = 1
        End If
        Cancel = True
    End If
End With
End Sub

Das grüne Häkchen kommt über die Schriftart (Wingdings) mit dem Zeichen ü.
Auf diese Art und Weise würde ich die Datei überarbeiten. Das ist aber nur ein winziges Beispiel.

 

Hallo Boris,
Herzlichen Dank, dass du dir doch nochmals Gedanken gemacht hast und mir hilfst! Ich habe ein unglaublich grosszügiges Angebot von einem User bekommen, dass er mir das ganze Tool kostenlos erstellt und mir noch alles Schritt für Schritt erklärt. Dies weil er soziale Arbeit super findet und diese unterstützen möchte. Da ich selber Teilnehmer am Integrationsprogramm bin und in nächster Zeit eine Stelle im 1. Arbeitsmarkt finden muss, hilft mir alles was ich dazu lerne sehr. Auch mit deiner Lösung/Hilfe lerne ich wieder etwas dazu. Deswegen werde ich es trotz Hilfe von einem anderen User gerne mal ausprobieren.
Lieber Gruss Jürg

 

Hi Jürg,

das ist ein wirklich großzügiges Angebot! Wünsche Dir/Euch den maximalen Erfolg!

 

Hi Boris..
Da wir vor einiger Zeit einen Hackerangriff auf unsere Server hatten haben wir eine sehr "strengen Firewall. Deswegen kann deine Datei nur ohne Makros runterladen. Ich habe nun deinen Code kopiert und bei meiner Tabelle eingefügt.
Beim Versuch kommt aber immer diese Fehlermeldung: "Fehler beim Kompilieren: Ausserhalb einer Prozedur ungültig". Trotz Googeln verstehe ich aber nicht was damit gemeint ist (Dies steht auch bei deiner Tabelle wenn ich Doppelklicke, obwohl ich ja eigentlich die Makros nicht runterladen konnte?) Könntest du mir da doch nochmals Helfen?
Sorry

 

Hi Jürg,

ich häng Dir meine Beispieldatei nochmal komplett ohne Makros an.
Was musst Du machen?
Rechtsklick auf den Tabellenreiter - Code anzeigen - in das sich öffnende VBA-Fenster den obigen Code reinkopieren und dann den VBA-Editor wieder schließen.
Dann so testen, wie oben bereits beschrieben.

 

Ja das wusste ich und habe es auch so gemacht..trotzdem immer diese Fehlermeldung..

 

Hmm... vielleicht das Wort "Code:" mit Kopiert vorher. Also jetzt keine Fehlermeldung mehr aber tut sich auch nichts. Es wird trotz Code keine Aktion ausgeführt. Komme mir gerade etwas Dumm vor weil ich es irgendwie nicht kapiere..

 

Hi,

natürlich nur alles ab Private... bis End Sub kopieren.
Habe es gerade selbst nochmal an der von mir zuletzt hochgeladenen Datei getestet - es funktioniert einwandfrei.
Kannst gerne mal Deinen (nicht funktionierenden) Versuch hochladen.

 

Habe deine Datei und den Code eingefügt.. bei mir geht gar nichts..

 

Hi Jürg,

geht bei mir einwandfrei. Hast Du die Makros auch aktiviert?
Das Makro reagiert auf Doppelklick im Bereich D19:D227.

 

Definitiv Doof! Ich habe in der falschen Zelle angeklickt ( Auf dem Namen) Sorry! Jetzt funktionierts

 

Für d`r Bastler