manchmal ist Excel doch verzwickt...
Ich kopiere mit einem Makro andere Werte nach Angabe eines Kriteriums (Danke Günther) - das geht auch ganz toll bis auf ein kleines Problem:
Public Sub Aendern_MatPlatz()
Dim Zellchen As Range
Dim AendBereich As Range
Dim AendZeilen As Long
Dim AendWert
Dim AendKrit As String
Dim I
Dim DatenBereich As Range
Dim GefilterterBereich As Range
Sheets("Daten").Select
Sheets("Daten").AutoFilterMode = False
'If Range("A1") > "" Then Range("1:1").Insert
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Set DatenBereich = Range(Selection, ActiveCell.SpecialCells(xlLastCell))
DatenBereich.AutoFilter
AendZeilen = Sheets("Aendern").Range("A" & Sheets("Aendern").Rows.Count).End(xlUp).Row
For I = 2 To AendZeilen
AendKrit = Sheets("Aendern").Range("A" & I).Text
AendWert = Sheets("Aendern").Range("B" & I).Value
DatenBereich.AutoFilter Field:=42, Criteria1:=AendKrit
Set GefilterterBereich = Intersect(Range("F2:F" & Rows.Count), DatenBereich.SpecialCells( _
xlCellTypeVisible))
' MsgBox GefilterterBereich.Cells.Count
If Not (GefilterterBereich Is Nothing) Then
For Each Zellchen In GefilterterBereich.Cells
Zellchen.Offset(0, -2) = AendWert
Next
End If
Next
End Sub
Mein Problem ist, das in der Tabelle "Daten" in Spalte D downgeloadete Zahlen stehen die als Text formatiert sind. (z.B. 01 oder 61)
Grünes Kästchen: die zahl in dieser zelle ist als text formatiert oder es ist ein apostroph vorangestellt
Ich habe schon den Wert so in die Tabelle "Aendern" eingefügt aber er kopiert
AendWert = Sheets("Aendern").Range("B" & I).Value
ich habe auch schon das .value weggenommen oder durch .text ersetzt - es kommt aber nie das gleiche raus. D.h. ich habe dann 2x die 61 - einmal als 61 Zahl und einmal als 61 mit "die zahl in dieser zelle ist als text formatiert oder es ist ein apostroph vorangestellt"
Wie kann ich den Wert so übertragen das es auch ein Wert mit "die zahl in dieser zelle ist als text formatiert oder es ist ein apostroph vorangestellt" ist?
Ich brauche das weil hinten eine gruppierte Pivottabelle dranhängt und ich sonst alles von vorne machen muß.
Weiß jemand Rat?
Vielen Dank und viele Grüße Lutz