Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
einfaches Formatierungsproblem
zurück: Urlaubsdauer-Berechnung gibt Laufzeitfehler 1004 aus weiter: einzelne Buchstaben eines Worts in Array einlesen 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
rumsgurke
ewiger Beginner


Verfasst am:
28. Sep 2007, 20:29
Rufname: André

einfaches Formatierungsproblem - einfaches Formatierungsproblem

Nach oben
       Version: Office XP (2002)

Nabend Allerseits,

So weit bin ich:
Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count > 1 Then Exit Sub
        If Not Application.Intersect(Target, Range("A7:A200")) Is Nothing Then
            Range("A7:A200").NumberFormat = "General"
        End If
End Sub


Aber danach komme ich nicht weiter. Nach dem Formatieren des Bereiches A7:A200
möchte ich den Inhalt in der verursachenden Zelle löschen.
Da diese Prozedur aber erst nach dem Change ausgeführt wird ist die nunmehr aktive Zelle nicht mehr die, die das Ereignis
ausgelöst hat. Und da der User individuell einstellen kann, wohin der Cursor wandert nach dem ENTER (Nach unten - nach rechts,
nach links oder nach oben) kann ich per Offset nicht mehr zweifelsfrei die verursachende Zelle cleanen.

Wenns nicht verständlich war, dann nochmal nachfragen.
Wer kann mir bitte mal auf die Sprünge helfen?

Danke und Gruß André

_________________
Um so mehr ich VBA lerne, um so mehr weiß ich, das ich erst sehr wenig davon weiß.
ransi
Für den Hausgebrauch reicht's..


Verfasst am:
28. Sep 2007, 20:54
Rufname:
Wohnort: Im schönen Weserbergland


AW: einfaches Formatierungsproblem - AW: einfaches Formatierungsproblem

Nach oben
       Version: Office XP (2002)

HAllo Andre

Zitat:
Wer kann mir bitte mal auf die Sprünge helfen?


Du musst dir die Alte_Zelle merken.
Hilft dir das hier weiter ?

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static alte_zelle As Range
MsgBox alte_zelle.Address
Set alte_zelle = Target
End Sub


ransi
Steffl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Sep 2007, 21:09
Rufname:

AW: einfaches Formatierungsproblem - AW: einfaches Formatierungsproblem

Nach oben
       Version: Office XP (2002)

Hallo André,

versuch mal dies:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static rngOldTarget As Range

    If Selection.Count > 1 Then Exit Sub
        If Not Application.Intersect(Target, Range("A7:A200")) Is Nothing Then
            Range("A7:A200").NumberFormat = "General"
            If Not rngOldTarget Is Nothing Then rngOldTarget.Value = ""
            Set rngOldTarget = Target
        End If
   
End Sub

_________________
Rückmeldung wäre nett.

Gruß Stefan
rumsgurke
ewiger Beginner


Verfasst am:
28. Sep 2007, 21:13
Rufname: André

AW: einfaches Formatierungsproblem - AW: einfaches Formatierungsproblem

Nach oben
       Version: Office XP (2002)

Hallo ransi,
ich habe den schwachen Verdacht, das
wie schon gesagt die Prozedur Worksheet_SelectionChange erst ausgeführt wird,
wenn das Change bereits passiert ist. Ich bräuchte sowas wie
Worksheet_Before_SelectionChange
gibt es aber nicht.

Bei deinem Code erhalte ich keine MsgBox ???

Gruß André

_________________
Um so mehr ich VBA lerne, um so mehr weiß ich, das ich erst sehr wenig davon weiß.
rumsgurke
ewiger Beginner


Verfasst am:
28. Sep 2007, 21:20
Rufname: André


AW: einfaches Formatierungsproblem - AW: einfaches Formatierungsproblem

Nach oben
       Version: Office XP (2002)

Hallo Steffan,

nix passiert, rein garnix.

Gruß André

_________________
Um so mehr ich VBA lerne, um so mehr weiß ich, das ich erst sehr wenig davon weiß.
ransi
Für den Hausgebrauch reicht's..


Verfasst am:
28. Sep 2007, 21:21
Rufname:
Wohnort: Im schönen Weserbergland

AW: einfaches Formatierungsproblem - AW: einfaches Formatierungsproblem

Nach oben
       Version: Office XP (2002)

HAllo Andre

HAst du den Code im richtigen Tabellenblatt ?
Ist Application.enableevents = True ?

ransi
ransi
Für den Hausgebrauch reicht's..


Verfasst am:
28. Sep 2007, 21:25
Rufname:
Wohnort: Im schönen Weserbergland

AW: einfaches Formatierungsproblem - AW: einfaches Formatierungsproblem

Nach oben
       Version: Office XP (2002)

HAllo Andre

Versuche es mal so:
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static alte_zelle As Range
On Error Resume Next
MsgBox alte_zelle.Address
Set alte_zelle = Target
End Sub



Der andere Code läuft in einen Fehler wenn Alte_Zelle noch nothing ist.
ransi
Schnurble
Excel-VBA-Kenner


Verfasst am:
28. Sep 2007, 21:29
Rufname:
Wohnort: BaWü

AW: einfaches Formatierungsproblem - AW: einfaches Formatierungsproblem

Nach oben
       Version: Office XP (2002)

Hi,

falls das Makro ausgeführt werden soll, wenn sich in der verursachenden Zelle etwas ändert, könntest Du das Worksheet_Change Ereignis benutzen. Target enthält dort die Zelle, deren Inhalt geändert wurde, also die verursachende Zelle, welches nicht unbedingt die gerade aktive Zelle ist.

LG,
Anja
rumsgurke
ewiger Beginner


Verfasst am:
28. Sep 2007, 21:30
Rufname: André


AW: einfaches Formatierungsproblem - AW: einfaches Formatierungsproblem

Nach oben
       Version: Office XP (2002)

Danke ransi,

das hilft erst mal weiter und funzt. Gruß André

_________________
Um so mehr ich VBA lerne, um so mehr weiß ich, das ich erst sehr wenig davon weiß.
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 Formeln: ganz einfaches ding 1 nico12345 104 30. Apr 2012, 15:02
Gast ganz einfaches ding
Keine neuen Beiträge Excel Formate: Formatierungsproblem 2 Rolf123 194 23. Nov 2010, 12:01
Gast Formatierungsproblem
Keine neuen Beiträge Excel Formate: Einfaches DropDown Menü, trotzdem am verzweifeln 1 Prozess0r 1212 23. Sep 2010, 11:12
gandalf149 Einfaches DropDown Menü, trotzdem am verzweifeln
Keine neuen Beiträge Excel Formeln: Mittelwert mit Bedingung (einfaches Problem) 3 Gast 295 04. Feb 2010, 15:21
Gast Mittelwert mit Bedingung (einfaches Problem)
Keine neuen Beiträge Excel Formeln: Unter Excel ein einfaches Eingabeformular erstellen? 2 ChrisRoo 35708 23. Mai 2009, 19:31
ChrisRoo Unter Excel ein einfaches Eingabeformular erstellen?
Keine neuen Beiträge Excel VBA (Makros): Formatierungsproblem 2 Silvio.M 289 27. Aug 2008, 12:35
Silvio.M Formatierungsproblem
Keine neuen Beiträge Excel VBA (Makros): Dateiausdruck...was ganz einfaches... 4 Ostsachse 391 21. Aug 2008, 09:47
meinTipp Dateiausdruck...was ganz einfaches...
Keine neuen Beiträge Excel VBA (Makros): Formatierungsproblem in Userform/Textbox 2 slb 496 11. Aug 2008, 14:53
slb Formatierungsproblem in Userform/Textbox
Keine neuen Beiträge Excel VBA (Makros): Zahlen aus InputBox - Formatierungsproblem 1 Gast 295 17. Jul 2008, 17:58
Tonde Zahlen aus InputBox - Formatierungsproblem
Keine neuen Beiträge Excel VBA (Makros): Eigentliches einfaches Copy Paste funktioniert nicht 3 Fat-Twin 3256 06. Jul 2008, 21:26
Fat-Twin Eigentliches einfaches Copy Paste funktioniert nicht
Keine neuen Beiträge Excel Formate: Ich steh aufm Schlauch ... Formatierungsproblem 3 NDM 405 24. Jun 2008, 11:20
Gast Ich steh aufm Schlauch ... Formatierungsproblem
Keine neuen Beiträge Excel Formate: Einfaches Excel Problem 2 mtubolino2 398 31. März 2008, 10:27
mtubolino2 Einfaches Excel Problem
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA