|
Hallo Till,
du bist der Beste! Das funktioniert super! Ich staune nur, wie du das löst. Die Spalte B ist schon richtig!!!
Und ich versuche das über ein neues RangeObjekt... Wie gesagt, bin noch am Üben, ist mein erstes Makro!
Eine Bitte hätte ich noch:
Wie kann ich nun die Werte in Sternchen setzen (*Artikelnr* aus Spalte B)? Das brauche ich, um dies in Barcode 39 umzuwandeln. Das Font verlangt es so!
Font Wechseln klappt schon, bloß beim RangeObjekt meckert der Debbuger, da Typen unverträglich!
rng.Columns(8) = "*" & rng.Columns & "*" 'so gehts nicht
rng.Columns(8) = "*" & Zeile & "*" 'so gehts, da Zeile = Variable
rng.Columns(2).Copy rng.Columns(8)
rng.Columns(8).Font.Name = "Free 3 of 9 Extended" 'geht auch
Ich suche derweil weiter und bin dir jetzt schon zu größtem Dank verplichtet!
Grüße
|