Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kleines Excel Problem

Kleines Excel Problem
04.01.2005 17:27:07
Michael
Hallo, folgedes Problem:
Ich möchte das wenn ich in einer Zelle eine Zahl eingebe, mir diese Zahl mit 100 multipliziert angezeigt wird. Also wenn ich eine "6" eingebe soll eine "600" in der Zelle stehen.
Mit einer Formatierung einfach 2 Nullen anhängen geht nicht, da ich mit der "600" in einer Formel noch weiter rechnen muss.
Über eine Hilfe würde ich mich riesig freuen.
Michael

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kleines Excel Problem
paula
Hi Michel
und was soll passieren, wenn Du 6000 eingibst, soll dann 600000 dastehen?
Gruss paula
AW: Kleines Excel Problem
Michael
genau !!
AW: Kleines Excel Problem
paula
hier die Hammermethode:
auf TabellenblattReiter mit rechter Maustaste:
Code anzeigen
dann diesen Code reinkopieren
Private Sub Worksheet_Change(ByVal Target As Range) If IsNumeric(Target) Then Application.EnableEvents = False Target = Target * 100 Application.EnableEvents = True End If End Sub
Gruss paula
Eine Frage noch
Michael
Hallo,
vielen Dank, klappt soweit ganz gut.
Eine Frage noch:
Wie sieht der Code aus, wenn die Funktion nur für den Zellbereich A1:B10 angewendet werden soll?
1000 Dank
Michael
Anzeige
AW: Eine Frage noch
paula
Hi Michel
so sieht der Code aus:
Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range Set rng = Range("A1:B10") If Intersect(Target.Cells(1), rng) Is Nothing Or _ Intersect(Target.Cells(Target.Cells.Count), rng) _ Is Nothing Then Exit Sub If IsNumeric(Target) Then Application.EnableEvents = False Target = Target * 100 Application.EnableEvents = True End If End Sub
Noch Fragen?
Hättest Du gleich eingangs ordentlich dein Problem bzw. die Frage geschildert, wäre die Antwort gleich befriedigend gewesen!!!
Gruss paula
Spitze perfekt !!!
05.01.2005 13:14:09
Michael
Hallo Paula
1.000 Dank.
Das ist die perfekte Lösung.
Meine Hochachtung!
Ps. echt witzig, mein Spitzname ist Paule
Gruß
Michael
Anzeige
AW: Kleines Excel Problem
ransi
hallo michael
ohne VBA fällt mir nur sowas ein:
 
  
 AB
1 1234500
Formeln der Tabelle
B1 : =WENN(ISTZAHL(A1);A1*100;"")


 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

A1 ist benutzerdefiniert: ;;;

ransi

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


            
    
    
    
                    


    
    
    
    
    
    
            


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

    
    
    


    
Anzeige

    

        
                    
                
    




    
    

    

        

            

                
                    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
                
            

            

                

                
            

        

    




    
    

    
    
            
 

            
            

                
                
                                    

                        


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

                    

                                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige