doppelkick mit makro

  • #1
1

11Swen11

Guest
Wie mache ich einen doppelklick-Ereignis auf eine Zelle im Excel. mit Makro.

Danke gruss Swen
 
  • #2
Zwischenfrage: Wozu?
 
  • #3
ich habe ein ähnliches Problem, wie dieses hier.


http://www.wintotal-forum.de/?board=17;action=display;threadid=54264


nur ist es bei mir kein Datum sondern eine Währung.
Wie geht das?
Bei mir funktionierts mit diesem Code für das Datum jedoch nicht für die Währung:


Code:
Sub DatumInB2()
Dim s_tmp As String, d_date As Date

s_tmp = InputBox(Bitte Datum eingeben :), _
Datumseingabe)
->auf Datum prüfen
If IsDate(s_tmp) Then
->Datums-String in Datum umwandeln
d_date = s_tmp
->Format setzen, Datum eintragen
Range(B2).NumberFormat = dd/mm/yy;@
Range(B2).Value = d_date
Else
->nicht interpretierbares Datum als String einragen
Range(B2).NumberFormat = @
Range(B2).Value = s_tmp
End If
End Sub
 
  • #4
Hi 11Swen,

benutze im Makro bitte das richtige Numberformat für Währung.

statt dd/mm/yy;@ bitte $ #,##0.00 ;D

Gruß Matjes :)
 
  • #5
Oh man. Das war ja der Code für das Datum und nicht für die Währung.
Ich habs nicht hingeschrieben, ich wollte damit sagen, dass der code mit dem Datum funktioniert und hab den code nochmals reinkopiert.
Ich möchte aber den code für die Währung.
Dein Code funktioniert auch nicht. hab ich ja auch schon ausprobiert.
 
  • #6
Hi 11Swen11,

hier das Beispiel für Währung.

Gruß Matjes :)
Code:
Sub BetragInB2()
  Dim s_tmp As String, d_geld As Currency

  s_tmp = InputBox(Bitte Betrag eingeben :-), _
                  Betragseingabe)
 ->auf Betrag prüfen (ggf. erweitern)
  If IsNumeric(s_tmp) Then
   ->Betrags-String in Währung umwandeln
    d_geld = s_tmp
   ->Format setzen, Betrag eintragen
    Range(B2).NumberFormat = $ #,##0.00
    Range(B2).Value = d_geld
  Else
   ->nicht interpretierbarer Betrag als String einragen
    Range(B2).NumberFormat = @
    Range(B2).Value = s_tmp
  End If
End Sub
 
Thema:

doppelkick mit makro

ANGEBOTE & SPONSOREN

Statistik des Forums

Themen
113.838
Beiträge
707.961
Mitglieder
51.491
Neuestes Mitglied
haraldmuc
Oben