Hallo Peterson,
danke für Deine Tipp's.
Das Ansprechen der Zellen ist nicht das Problem.
Das Problem liegt im Füllen.
Wenn ich mit der Variable "Text" den Umweg über eine Zelle gehe, in die ich die Variabe schreibe, und dann die Zellen aneinanderbaue, funktioniert das einwandfrei:
...
' Dimensionierung der Variablen
Dim Text As String
' Abfrage Text
Text = InputBox("Artikel", "Benutzereingabe : ", "A")
...
weiterer Code ...
...
' text in Kopfzeile Spalte M schreiben
Range("m1").Select
ActiveCell.FormulaR1C1 = "Artikeltext"
' x Text in Kopfzeile Spalte N schreiben
Range("n1").Select
ActiveCell.FormulaR1C1 = " x " & Text
' Spalte N mit x Text füllen
Range("n1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
' Menge x Text in M2 schreiben
Range("m2").Select
ActiveCell.FormulaR1C1 = "=RC[-4]&RC[1]"
' Spalte M mit Menge x Text füllen
Range("m2").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
' Spalte M in Werte wandeln
Columns("M:M").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
' Spalte N löschen
Columns("N:N").Select
Selection.Delete Shift:=xlToLeft
...
Ich wollte aber wissen, wie das auf einen Wisch geht.
Gruß jdeen
jdeen
