Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
BeforeDoubleKlick + ScrollArea, Infomeldung WENN...
zurück: Dynamisches Diagramm in UserForm weiter: Dateipfad in viele zellen gleichzeitig schreiben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Mysterie
Forscher


Verfasst am:
16. Feb 2009, 12:56
Rufname: Daniel

BeforeDoubleKlick + ScrollArea, Infomeldung WENN... - BeforeDoubleKlick + ScrollArea, Infomeldung WENN...

Nach oben
       Version: Office XP (2002)

Guten Tag alle zusammen Smile
Ich bräuchte einmal eure Professionelle Hilfe.

Und zwar,

Ich habe eine UserForm erstellt mit 4 Buttons.
Die Buttons lauten wie folgt.

- Zielort ändern
- Koordinator ändern
- Reiseleiter ändern
- Admin

Jenachdem was ich auswähle, wird ein ScrollArea-Bereich festgelegt.
Bei Zielort ändern ist es A:A
Bei Koordinator ändern ist es B:B
und bei Reiseleiter ändern ist es ab C bis zur letzten Überschrift.
Bei Admin wird ScrollArea aufgehoben.

Auf dem kompletten Arbeitsblatt wird mit BeforeDoubleKlick gearbeitet.
Beim Doppelklick wird immer die passende UserForm geöffnet.

Meine Frage ist nun, kann man irgendwie die Curserpositin abfragen,
dass er erkennt ob ich nun ein Doppelklick in dem freigegebenen Bereich mache,
oder in einem gesperrten.

Denn bis jetzt ist es so, das ja standartmäßig immer eine Zelle ausgewählt ist im
nicht gesperrten Bereich. Wenn ich nun Doppelklick in einem gesperrten Bereich
tätige, wird dennoch für die ausgewählte Zelle die UserForm geöffnet.
Das sollte, falls möglich, verhindert werden.

Folgend sind zwei Codes, einmal zum festlegen des Bereiches und einmal das zum öffnen der UserForms.

Ich hoffe ihr könnt mir helfen.

Gruß Daniel

Der Code um die Bereiche festzulegen. Dieser Code befindet sich in der UserForm1

Code:
'******* Nur der Bereich in Spalte A ist zugänglich
Private Sub CommandButton1_Click()
Worksheets("Einsatz").ScrollArea = "A:A"

Worksheets(1).Visible = True
Worksheets(7).Visible = False
Worksheets(1).Activate
End Sub
'******* Nur der Bereich in Spalte B ist zugänglich
Private Sub CommandButton2_Click()

Worksheets("Einsatz").ScrollArea = "B:B"

Worksheets(1).Visible = True
Worksheets(7).Visible = False
Worksheets(1).Activate

End Sub
'******* Nur der Bereich ab Spalte C bis letzten Datum ist zugänglich
Private Sub CommandButton3_Click()

    Dim lngLastColumn As Long
    Dim strAddress As String
    With Tabelle1
        lngLastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
        If lngLastColumn >= 3 Then
            strAddress = Cells(1, lngLastColumn).Address(RowAbsolute:=False, ColumnAbsolute:=False)
            .ScrollArea = "$C:$" & Left$(strAddress, Len(strAddress) - 1)
        End If
    End With

Worksheets(1).Visible = True
Worksheets(7).Visible = False
Worksheets(1).Activate

End Sub


Dieser Code steht in Tabelle1(Einsatz) in Worksheet_BeforeDoubleKlick
Code:
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Spalte As Integer
    Dim Zeile As Integer
   
    Spalte = ActiveCell.Column
    Zeile = ActiveCell.Row
   
            If Spalte < 4 Then
                If Zeile > 1 Then
                    Select Case Spalte
                    Case 1
                    UserForm2.Show
                    Case 2
                    UserForm3.Show
                    Case 3
                    UserForm4.Show
                    End Select
            End If
        End If
   
        If Spalte > 3 Then
            If Zeile > 1 Then
                UserForm4.Show
            End If
        End If
       
      Cancel = True
       
    'Call anpassen
    Cells.EntireColumn.AutoFit

End Sub
Steffl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. Feb 2009, 13:47
Rufname:


AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN... - AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN...

Nach oben
       Version: Office XP (2002)

Hallo Daniel,

das verstehe ich nicht. Du befindest Dich in Der Userform1, drückst auf irgendeinen Button, wo der jeweilige Scrollbereich festgelegt wird und aktivierst danach die Tabelle1. Wie kannst Du dann einen anderen Scrollbereich auswählen? Bei meinen Test war das nicht möglich!

_________________
Rückmeldung wäre nett.

Gruß Stefan
Mysterie
Forscher


Verfasst am:
16. Feb 2009, 14:07
Rufname: Daniel

AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN... - AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN...

Nach oben
       Version: Office XP (2002)

Hallo Steffl.
Ich versuche es einmal anders zu erklären. ^^

Also.
Beim öffnen der Mappe wird die UserForm1 geöffnet.
Dann hat man die Möglichkeit zwischen den oben genannten Optionen auszuwählen.
Nach der Auswahl wird, wie von dir auch schon erwähnt, auf die Tabelle1 gewechselt.
Vielleicht ist noch wichtig zu erwähnen, dass die UserForm nach der Auswahl nicht geschlossen wird.
Sie bleibt immer offen und wurde so eingestellt, dass man gleichzeitig in der Tabelle
arbeiten kann. Somit ist auch gewährleistet, dass man nach Belieben eine Option
auswählen kann.

Desweiteren sind die Codes hier nur Ausschnitte.

Ich hoffe die Frage wurde damit beantwortet Smile

Gruß Daniel
Steffl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. Feb 2009, 14:17
Rufname:

AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN... - AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN...

Nach oben
       Version: Office XP (2002)

Hallo Daniel,

ok, das mit der weiterhin offenen Userform habe ich nicht nachgebaut. Sollte aber keinen großen Unterschied ausmachen. Aber vielleicht könntest Du die Datei hier hochladen? Dann tut man sich leichter.

_________________
Rückmeldung wäre nett.

Gruß Stefan
Mysterie
Forscher


Verfasst am:
16. Feb 2009, 14:28
Rufname: Daniel


AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN... - AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN...

Nach oben
       Version: Office XP (2002)

Kein Problem.

Hier mal eine Beispieldatei.



beispiel1.xls
 Beschreibung:

Download
 Dateiname:  beispiel1.xls
 Dateigröße:  50 KB
 Heruntergeladen:  18 mal

Steffl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
16. Feb 2009, 15:03
Rufname:

AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN... - AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN...

Nach oben
       Version: Office XP (2002)

Hallo Daniel,

tut mir leid, da kann ich keine Lösung bieten. Stelle den Thread offen.

_________________
Rückmeldung wäre nett.

Gruß Stefan
Mysterie
Forscher


Verfasst am:
16. Feb 2009, 16:50
Rufname: Daniel

AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN... - AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN...

Nach oben
       Version: Office XP (2002)

Hi Steffl.

Schade Sad
Darf ich fragen woran es liegt das dir keine Lösung einfällt dazu ?

Auf jeden Fall danke das du es versucht / dir angeschaut hast Smile

Gruß Daniel
Mysterie
Forscher


Verfasst am:
17. Feb 2009, 10:11
Rufname: Daniel

AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN... - AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN...

Nach oben
       Version: Office XP (2002)

Guten Morgen zusammen Smile

Bis jetzt sieht es wohl schlecht aus für mich. ^^

Währe es denn einem anderen möglich mir zu helfen?
Währe natürlich super Very Happy

Gruß Daniel
Mysterie
Forscher


Verfasst am:
18. Feb 2009, 09:54
Rufname: Daniel

AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN... - AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN...

Nach oben
       Version: Office XP (2002)

Guten Morgen liebe Office-Loesung-Gemeinde Smile

Ich bin in den letzten 2 Tagen wieder gut vorrangekommen mit meiner Excel-Mappe,
aber das hier ist mir immer noch ein Dorn im Auge. ^^

Mir würde es ja schon reichen wenn mir einer der Profis schreibt, dass es nicht möglich ist.
Dann würde ich ja schon Ruhe geben.

Aber so ohne Worte abgespeißt werden ist nicht schön Sad
(Steffl außen vor gelassen)

Gruß Daniel
Mysterie
Forscher


Verfasst am:
24. Feb 2009, 12:55
Rufname: Daniel

AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN... - AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN...

Nach oben
       Version: Office XP (2002)

Guten Tag zusammen.

Ich hole diesen Thread noch ein letztes mal nach oben in der Hoffnung das mir jemand helfen kann.
Wenn einer die Problemstellung nicht versteht, soll er es bitte mitteilen damit
ich es vielleicht anders formulieren kann.

Wenn mir letztenendes doch keiner helfen kann, dann gebe ich mich damit zufrieden
und lasse diesen Thread in den tiefen Weiten dieses Forums verschwinden Smile

Mfg Daniel
Phelan XLPH
Fortgeschritten


Verfasst am:
24. Feb 2009, 15:57
Rufname: Phelan

AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN... - AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN...

Nach oben
       Version: Office XP (2002)

Hi,

ich würds so lassen, da gäbs ne Möglichkeit aber dann hast
woanders ne Einschränkung.

Einen Tod musst du sterben!

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Mysterie
Forscher


Verfasst am:
24. Feb 2009, 16:14
Rufname: Daniel


AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN... - AW: BeforeDoubleKlick + ScrollArea, Infomeldung WENN...

Nach oben
       Version: Office XP (2002)

Hi Glücksritter.

Dann bleib ich lieber bei dem, wie es jetzt ist,
denn ein wenig mitdenken und aufpassen sollen die Mitarbeiter ja auch noch ^^.

Danke also für deine Antwort Smile

Gruß Daniel
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Hilfe: ScrollArea zusammen mit Autofilter 0 proExcel 73 05. Jun 2013, 20:49
proExcel ScrollArea zusammen mit Autofilter
Keine neuen Beiträge Excel VBA (Makros): Umfangreiche Tabelle mit Scrollarea "aufteilen" 2 strackus 253 31. Jul 2012, 06:54
strackus Umfangreiche Tabelle mit Scrollarea "aufteilen"
Keine neuen Beiträge Excel VBA (Makros): Scrollarea Festlegen 3 Käpsele 499 18. Jun 2012, 18:22
Käpsele Scrollarea Festlegen
Keine neuen Beiträge Excel Formeln: Warn- oder Infomeldung wenn doppelter Eintrag aus 2 Sp 5 weihnachtsmann86 145 27. Sep 2011, 09:51
weihnachtsmann86 Warn- oder Infomeldung wenn doppelter Eintrag aus 2 Sp
Keine neuen Beiträge Excel VBA (Makros): Scrollarea bei filter fehlerhaft 3 bLAtest 450 12. Jan 2011, 16:59
Phelan XLPH Scrollarea bei filter fehlerhaft
Keine neuen Beiträge Excel VBA (Makros): ScrollArea für gesamte Arbeitsmappe 3 Matthias Geier 904 29. Aug 2010, 10:02
Matthias Geier ScrollArea für gesamte Arbeitsmappe
Keine neuen Beiträge Excel VBA (Makros): ScrollArea 5 y-vonne 553 12. Apr 2010, 13:51
Rolf-H ScrollArea
Keine neuen Beiträge Excel VBA (Makros): ScrollArea für die sichtbaren benutzen Bereiche festlegen 49 Hippi4v2a 4547 30. März 2010, 23:48
Accesbeginner ScrollArea für die sichtbaren benutzen Bereiche festlegen
Keine neuen Beiträge Excel VBA (Makros): ScrollArea Problem 2 Der_Fab 1489 01. März 2010, 17:23
Der_Fab ScrollArea Problem
Keine neuen Beiträge Excel VBA (Makros): ScrollArea 4 Woerny 1195 29. Okt 2009, 02:15
Phelan XLPH ScrollArea
Keine neuen Beiträge Excel VBA (Makros): ScrollArea= "MeineTabelle, K14" <- Geht nicht! 6 HelpMePlease14 456 25. Jul 2009, 14:18
HelpmePlease14 ScrollArea= "MeineTabelle, K14" <- Geht nicht!
Keine neuen Beiträge Excel VBA (Makros): Kann man ScrollArea auch Dynamisch machen ? 9 Mysterie 688 19. Jan 2009, 10:15
Mysterie Kann man ScrollArea auch Dynamisch machen ?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Editoren Forum