Excel automatisch füllen

Computer: Software & Programmierung Office Software
#1

Hi zusammen,

ich habe hier ein Makro, der vor einer Zahlengruppe, ein „SP“ setzen soll. Ich  muss dazu sagen, das ich wenig Ahnung vom Makros habe. Ich möchte jetzt, dass er kein „SP“ setzen soll, wenn die Zeile leer ist. Er soll das dann Automatisch erkennen. Kann mir einer sagen, wie ich das Makro ergänzen kann?
__________________________________
Sub hinzufügen() Dim Zelle As Range For Each Zelle In Range(„E2:E10000“) 'hier den Zielbereich eingeben Zelle.Value = "SP " & Zelle.Value 'Gewünschter Wert in den Klammen Next Zelle End Sub __________________________________
Danke und Gruß

#2

Hallo Antoniodc,
das Makro hast Du so hier hineinkopiert? Es ist ein bisschen ungewöhnlich und schlecht zu lesen, weil die Zeilenumbrüche fehlen - ist aber vielleicht auch nur wieder eine neues Feature der ForenSoftWare :wink:
Ist in diesem Fall ja nicht schlimm, weil es recht kurz ist. Funktioniert aber?
Egal, ich würde es trotzdem ersetzen durch ein benutzerdefiniertes Format.
Z. B.: > ( Pfeile nicht eingeben! )
Das wirkt sich auch nur auf die Zellen mit Inhalt aus - wie gewünscht.
Das geht dann auch noch kontinuierlich, Du musst nicht ständig das Makro starten.
Viel Erfolg
Thomas

Hi zusammen,

ich habe hier ein Makro, der vor einer Zahlengruppe, ein „SP“
setzen soll. Ich  muss dazu sagen, das ich wenig Ahnung vom
Makros habe. Ich möchte jetzt, dass er kein „SP“ setzen soll,
wenn die Zeile leer ist. Er soll das dann Automatisch
erkennen. Kann mir einer sagen, wie ich das Makro ergänzen
kann?
__________________________________
Sub hinzufügen() Dim Zelle As Range For Each Zelle In
Range(„E2:E10000“) 'hier den Zielbereich eingeben Zelle.Value
= "SP " & Zelle.Value 'Gewünschter Wert in den Klammen
Next Zelle End Sub __________________________________
Danke und Gruß

#3

Hallo,

etwas so?

Sub hinzufügen()
Dim Zelle As Range
For Each Zelle In Range(„E2:E10000“) 'hier den Zielbereich eingeben
If Zelle.Value = „“ Then
'Nichts tun
Else
Zelle.Value = "SP " & Zelle.Value 'Gewünschter Wert in den Klammen
End If
Next Zelle
End Sub

MfG,

ujk

#4

Hallo
das ist nicht zu empfehlen weil deine Zahlen zu Text werden und Excel dann keinerlei Berechnungen damit machen kann.

Außerdem hat Excel Mittel die Azeige so wie gewünscht einzustellen.
Meine Empfehlung daher:

benutzerdefiniertes Zellenformat:

>Rechtsklick auf die markieren Zellen
>Zellen formatieren >Zahlen >benutzerdefiniert
>Type:
"SP " 0,00

Danacht funktioniert alles wie gewünscht
Gruß Holger

#5

Super.
Hat geklappt danke

#6

Danke

#7

Hi,
funktioniert auch gut, nimmt mir aber immer die 0 davor weg. Wie kann ich das ändern?

#8

Also, als Beispiel Artikelnumme 03364, danach steht da SP3364.

#9

„SP“ @

#10

… oder so:
"SP " 00000

Gruß Holger