Supportnet / Forum / Tabellenkalkulation
Automatisierung
Frage
Hallo Excel Freunde,
ich möchte gerne in meiner Excel Tabelle etwas automatisieren:
In der Spalte A sollte vorneweg (bis 99999) "1" erscheinen, ab
100000 gehört vorneweg "2". Wenn mein Eintrag mit einem Buchstaben beginnt, z.B. 'A.....', dann darf diese Regel nicht angewendet werden.
Beispiel:
[url]http://www.netupload.de/detail.php?img=91b482d31eabb25a39639dd1aed38a7b.xls[/url]
Vielen Dank für Eure Hilfe!
Lydia
Antwort 1 von Roland
Mal angenommen du gibst die Zahlen in der Spalte B ein
(ich fange mal mit Zeile 2 an)
dann gib in Spalte A mal folgende Formel ein
=WENN(ISTZAHL(B2);WENN(B2<100000;VERKETTEN("1";B2);VERKETTEN("2";B2));B2)
das sollte funktionieren.
Funktion (ISTZAHL): zuerst wird geprüft, ob dier eingegebene Wert eine Zahl ist oder ob ein Buchstabe dabei ist (Text).
Wenn Zahl dann wird geprüft ob die Zahl kleiner 100000 ist, wenn ja wird "1" davorgeschrieben (verketten) wenn nicht "2".
Ach ja, wenn bei ISTZAHL falsch (also TEXT) rauskommt wirf einfach das Feld in B reingeschrieben.
Evtl. gibst da auch was einfacheres ... aber das ist mir gerade eingefallen.
cu
Roland
(ich fange mal mit Zeile 2 an)
dann gib in Spalte A mal folgende Formel ein
=WENN(ISTZAHL(B2);WENN(B2<100000;VERKETTEN("1";B2);VERKETTEN("2";B2));B2)
das sollte funktionieren.
Funktion (ISTZAHL): zuerst wird geprüft, ob dier eingegebene Wert eine Zahl ist oder ob ein Buchstabe dabei ist (Text).
Wenn Zahl dann wird geprüft ob die Zahl kleiner 100000 ist, wenn ja wird "1" davorgeschrieben (verketten) wenn nicht "2".
Ach ja, wenn bei ISTZAHL falsch (also TEXT) rauskommt wirf einfach das Feld in B reingeschrieben.
Evtl. gibst da auch was einfacheres ... aber das ist mir gerade eingefallen.
cu
Roland
Antwort 2 von Saarbauer
Hallo,
versuch es mal damit in einer freien Spalte der Zeile 2
=WENN(ISTTEXT(A2);A2;WENN(A2<100000;A2+10^AUFRUNDEN(LOG(A2);0);A2+10^AUFRUNDEN(LOG(A2);0)*2))
und dann nach unten ziehen
Gruß
Helmut
versuch es mal damit in einer freien Spalte der Zeile 2
=WENN(ISTTEXT(A2);A2;WENN(A2<100000;A2+10^AUFRUNDEN(LOG(A2);0);A2+10^AUFRUNDEN(LOG(A2);0)*2))
und dann nach unten ziehen
Gruß
Helmut
Antwort 3 von DukeNT
Hi Lydia,
drücke in Excel Alt+F11 - Doppelklick auf Tabelle1 und kopiere folgenden Code ins Fenster.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then End
If Left(Target, 1) = "A" Then Cells(Target.Row, 3).Value = Target
If Target <= 99999 Then Cells(Target.Row, 3).Value = "1" & Target
If Target > 99999 Then Cells(Target.Row, 3).Value = "2" & Target
End Sub
Bei jeder eingabe auf Tabelle1 wird geprüft ob die Änderung in Spalte A ist. Dann wird die Eingabe auf deine Werte geprüft und der gewünschte Wert wird automatisch in Spalte C eingetragen.
Gruß Niels
drücke in Excel Alt+F11 - Doppelklick auf Tabelle1 und kopiere folgenden Code ins Fenster.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then End
If Left(Target, 1) = "A" Then Cells(Target.Row, 3).Value = Target
If Target <= 99999 Then Cells(Target.Row, 3).Value = "1" & Target
If Target > 99999 Then Cells(Target.Row, 3).Value = "2" & Target
End Sub
Bei jeder eingabe auf Tabelle1 wird geprüft ob die Änderung in Spalte A ist. Dann wird die Eingabe auf deine Werte geprüft und der gewünschte Wert wird automatisch in Spalte C eingetragen.
Gruß Niels
Antwort 4 von Lydia
Vielen Dank an alle, mein Problem ist gelöst!
Gruß
Lydia
Gruß
Lydia