Tabelle1

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

**************************************************************
' Modul: Tabelle1 Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************
Option Explicit
Private Sub Worksheet_Change (ByVal Target As Range)
    '**************************************************
    '* H. Ziplies                                                        *
    '* 25.04.07                                                         *
    '* erstellt von Hajo.Ziplies@WEB.de                *
    '* http://Hajo-Excel.de/                                      *
    '**************************************************
    ' 00 vor jede Eingabe in dem Bereich
    Dim RaBereich As Range  ' Bereich der Wirksamkeit
    Dim RaZelle As Range       ' aktuelle Zelle die bearbeitet wird
    Dim StZahl As String          ' Variable für NumberFormat, Stellen vor dem Komma +2 Stellen nach dem Komma
    ' Fehlerbehandlung, falls doch mal ein Fehler kommt
    ' aus welchen Grunde auch immer, Reaktion auf Eingabe
    ' wieder einschalten
    On Error GoTo Fehler1:
    Set RaBereich = Range("B3:C20,E1:E7")    ' Bereich der Wirksamkeit
    ' noch mehr Bereiche
    ' Set RaBereich = Union(Range(C7:I26),Range("L7:R26"), Range("U7:AA26"), Range("AD7:AJ26"))
    Set RaBereich= Intersect(RaBereich, Tange(Target.Address))  ' nur die Zellen prüfen die im überwachten Bereich liegen
    If Not RaBereich Is Nothing Then
    ' ActiveSheet.Unprotect                     ' Tabellenschutz aufheben
    Application.EnableEvents = False     ' Reaktion auf Eingabe abschalten
    For Each RaZelle In Range(Target.Address)
            If RaZelle <> "" Then
                If IsNumeric( RaZelle) Then
                     StZahl = String(Len(CStr(CLng(RaZelle.Value ))) + 2,"0")   ' Stellen vor dem Komma
                     If InStr(RaZelle, ",") > 0 Then                                                 ' Stellen nach dem Komma
                         StZahl = StZahl & "." & String(Len(RaZelle) - Len(CStr(CLng(RaZelle))) - 1, "0")
                     End If
                     RaZelle.NumberFormat = StZahl
                Else
                     RaZelle = "00" & RaZelle
                End If
            End If
        End If
    NextRaZelle
  End If
Fehler1:
    SetRaBereich = Nothing
    Application.EnableEvents = True  ' Reaktion auf Eingaben einschalten
    ' ActiveSheet.Protect                     ' Tabellenschutz setzen
End Sub

Code eingefügt mit: Excel Code Jeanie

Datei 00 davor