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ß
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
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ß
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
