Hallo Rainer,
hallo alle anderen,
und sorry für die unausgereifte Beschreibung.
Ich versuche es nochmal.
Meine Vorstellung wäre ein Makro, welches wie folgt funktioniert:
Prüfe in Spalte G, ob ein Inhalt eine Länge von 5 Zeichen hat.
Wenn ja, dann erweitere diese Zeichen um den vorderen (A/ABC) und den hinteren (/2015) Teil.
Somit wird diese Zelle bei der nächsten Makroprüfung übergangen.
Ich habe es mal für eine Zelle ganz stümperhaft versucht. VBA ist, wie man sieht, nicht meins.
Ich hoffe das Beispiel macht es jetzt deutlicher.
Ich habe in Zelle G6 meine fünfstellige Zahl "12345" eingetragen. Das ist auch meine aktive Zelle.
In H6 habe ich bei der Makroaufzeichnung "A/ABC/" eingetragen.
In I6 "/2015".
In J6 habe ich die Zellen H6, G6, I6 verkettet und den Wert in G6 eingetragen.
Zum Schluss noch die Zellen H6-J6 gelöscht und G7 aktiviert.
Ist wahrscheinlich hahnebüchener Quatsch, den ich hier verzapfe, aber es soll ja nur verdeutlichen, wie ich es mir vorstelle. Und das ganze ohne Hilfsspalten. DAS wäre echt super.
Sub Makro2()
ActiveCell.FormulaR1C1 = "A/ABC/"
Range("I6").Select
ActiveCell.FormulaR1C1 = "/2015"
Range("J6").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-2],RC[-3],RC[-1])"
Range("J6").Select
Selection.Copy
Range("G6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H6:J6").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("G7").Select
End Sub
Nochmals Vielen Dank.
Gruß Maik