doppelkick mit makro

Dieses Thema doppelkick mit makro im Forum "Microsoft Office Suite" wurde erstellt von 11Swen11, 3. Nov. 2004.

Thema: doppelkick mit makro Wie mache ich einen doppelklick-Ereignis auf eine Zelle im Excel. mit Makro. Danke gruss Swen

  1. 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
     
Die Seite wird geladen...

doppelkick mit makro - Ähnliche Themen

Forum Datum
Excel VBA Makro zum suchen eines Textes und anschließend einen Breich zu kopieren Microsoft Office Suite 22. Jan. 2015
Word 2013 VBA: Makro aus einer anderen Datei aufrufen Microsoft Office Suite 16. Juni 2014
Excel VBA Makro zum suchen und markieren von Zeilen die ein bestimmtes Wort enthalten Microsoft Office Suite 16. Juni 2014
Excel: Makro ASCII verschieben Windows XP Forum 8. Nov. 2013
Makros und anderes - Excel Microsoft Office Suite 15. März 2013