Hallo,
ich bin wie so oft kurz vor dem verzweifeln. Es geht darum, dass ich in einer Tabelle verschiedene Werte habe und in den Spalten E und F (solange Werte enthalten sind) befinden sich Zahlen aber auch Wörter. Diese Zahlen entweder in Spalte E oder F muss ich in die Spalte G verschieben. Also wenn unter E3 eine Zahl ist, muss diese Zahl nach G3 und wenn in F4 eine ist muss die nach G4. Die Worte bleiben wo sie sind.
Dazu habe ich den Code hier gefunden, der mir das nur für jeweils eine Zelle der Spalten macht oder aber auch alles einfach 2 Zellen nach rechts verschiebt, was ich nicht brauche.
Wäre für eine Hilfe sehr dankbar.
Sub AusschneidenUndErsetzen()
Dim rngZelle As Range
For Each rngZelle In Range("H2:H2000")
'Wenn jede Zahl ersetzt werden soll
If IsNumeric(rngZelle) Then
Range("E2:G2000").Cut Destination:=Range("H2")
End If
Next rngZelle
End Sub
Gruß Emre
|