Trinkmengenliste

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit '* H. Ziplies * '* 30.04.18 * '* erstellt von HajoZiplies@web.de * '* http://Hajo-Excel.de/ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim RaBereich As Range ' Variable für Bereich Dim RaZelle As Range ' Variable für Zelle Set RaBereich = Range("N2:S33") ' Bereich der Wirksamkeit Set RaBereich = Intersect(RaBereich, Target) If Not RaBereich Is Nothing Then 'ActiveSheet.Unprotect ("Passwort") For Each RaZelle In RaBereich RaZelle = RaZelle - 3 Next RaZelle 'ActiveSheet.protect ("Passwort") Cancel = True End If Set RaBereich = Nothing ' Variable leeren End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim RaBereich As Range ' Variable für Bereich Dim RaZelle As Range ' Variable für Zelle Set RaBereich = Range("N2:S33") ' Bereich der Wirksamkeit Set RaBereich = Intersect(RaBereich, Target) If Not RaBereich Is Nothing Then 'ActiveSheet.Unprotect ("Passwort") For Each RaZelle In RaBereich RaZelle = RaZelle + 1 Next RaZelle 'ActiveSheet.protect ("Passwort") End If Set RaBereich = Nothing ' Variable leeren End Sub

Hallo
musste noch ein paar kleine Anpassungen machen dass es ging, jetzt habe ich noch kleine Probleme, bei doppelcklick das geht nur einmal, dann zählt es wieder dazu?
Und wenn ich den Kalender so einstellen will dass ich nur den Aktuellen Monat sehen will geht das nur wenn ich das Makro mit ' ausser Betrieb setze? Damit ich zweimal nacheinander Tippen kann habe ich eine ander Zelle aktiviert. Ich habe den ganzen Code ins Tabellenblatt kopiert ist das Richtig? Unten mein jetziger Code:
Option Explicit
'***********************************************
'* H. Ziplies *
'* 30.04.18 *
'* erstellt von HajoZiplies@web.de *
'* http://Hajo-Excel.de/ *
'***********************************************

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim RaBereich As Range                          ' Variable für Bereich
Dim RaZelle As Range                            ' Variable für Zelle
Set RaBereich = Range("N2:S33")       ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In RaBereich
RaZelle = RaZelle - 1
Next RaZelle
'ActiveSheet.protect ("Passwort")
Cancel = True
End If
Set RaBereich = Nothing                         ' Variable leeren
Range("T2").Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RaBereich As Range                          ' Variable für Bereich
Dim RaZelle As Range                            ' Variable für Zelle
Set RaBereich = Range("N2:S33")       ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Target)
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In RaBereich
RaZelle = RaZelle + 1
Next RaZelle
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing                         ' Variable leeren
Range("T2").Select
End Sub

Gruss MaBlu

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim RaBereich As Range ' Variable für Bereich Dim RaZelle As Range ' Variable für Zelle Set RaBereich = Range("N3:S33") ' Bereich der Wirksamkeit Set RaBereich = Intersect(RaBereich, Target) If Not RaBereich Is Nothing Then 'ActiveSheet.Unprotect ("Passwort") For Each RaZelle In RaBereich RaZelle = RaZelle + 1 Next RaZelle 'ActiveSheet.protect ("Passwort") Cancel = True End If Set RaBereich = Nothing ' Variable leeren End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim RaBereich As Range ' Variable für Bereich Dim RaZelle As Range ' Variable für Zelle Set RaBereich = Range("N3:S33") ' Bereich der Wirksamkeit Set RaBereich = Intersect(RaBereich, Target) If Not RaBereich Is Nothing Then 'ActiveSheet.Unprotect ("Passwort") For Each RaZelle In RaBereich RaZelle = RaZelle - 1 Next RaZelle 'ActiveSheet.protect ("Passwort") Cancel = True End If Set RaBereich = Nothing ' Variable leeren End Sub

…Lupo;
wahrscheinlich verlässt er sich nur auf die Browser-Optimierung. Aber das könnte man ja leicht nachprüfen, indem man eine solche Folge aus dem Text heraus- und in eine Xl-Zelle einkopiert, wie bspw das Folgende (zwischen : und !):   !
Allerdings musste ich feststellen*, dass sowohl   als auch   hierbei von Xl beim Einkopieren in ein normales Leerzeichen (ASCII:32) übersetzt wird, obwohl die Folge       lautet und Xl beide Zeichen ebenfalls unterscheidet. Das kann am Forum bzw Browser (eher nicht bzw weniger, da bei Wechsel von BLANK und NBSP durchaus auch hier breitere Leerstellen entstehen, wie zB nachfolgd 5: ); es kann also nur an Xl liegen*! (Vgl hierzu Wikipedia NBSP!)
Es ist ja auch nicht so, dass man unbedingt HTML-Kenntnisse haben muss, um in einem Forum schreiben zu können. Und das wird, je nach Art des Forums, auf mind 60…90% seiner Nutzer auch zutreffen.
* Ah, jetzt hab' ich's! Beim 1.Mal hatte ich in die Edit-Zeile (in die Zelle ergibt dasselbe!) kopiert, man muss aber auf die Zelle kopieren!
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

31 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

31
Beiträge zum Forumthread

Beiträge zu diesem Forumthread