Hallo!
Ich habe einen VBA-Code mit einem Autofilter, bei dem die Daten leider nichts als Zahlen in die Zieldatei eingefügt werden, sondern als Text und somit funktionieren die Formeln, die mit den Datenzellen verknüpft sind leider nicht.
In Quelldatei sind die betreffenden Zellen mit einem grünen Dreieck markiert. Wenn ich hier auf Zahl umstelle, funktioniert es. Ich hätte aber gerne, dass der Code das erkennt und automatisch umstellt, da die Datei automatisch aus einem Zeichenprogramm exportiert wird. Mit "PasteValues" alleine (ohne NumbersandFormats) habe ich es schon versucht, das ist auch nicht die Lösung. Hat wer von euch einen Vorschlag wie man das mit VBA lösen könnte?
Auszug aus dem Code:
If WorksheetFunction.CountIf(Basisdaten.Worksheets("Fenster- und Terrassentüren").Columns("D"), "AJ*") > 0 Then
'Wenn ja, Spalte D nach AJ filtern und Filterergebnis (Spalte A) kopieren
With Basisdaten.Worksheets("Fenster- und Terrassentüren")
.Range("A2").AutoFilter field:=4, Criteria1:="AJ*"
With .AutoFilter.Range
.Offset(1).Resize(.Rows.Count - 1).Columns(1).Copy
Bestellung.Worksheets("AJ Warema").Range("A19").PasteSpecial Paste:=xlPasteValuesandNumberFormats
End With
.Range("A2").AutoFilter
End With
Else
MsgBox "Fehler: Suchbegriff ""AJ oder AJ_"" ist in Spalte D nicht vorhanden."
End If
Danke!
LG
Christina