VBA / Wert aus nebenstehender Zelle?
23.04.2015 13:08:52
Micha
ich stehe mal wieder auf dem Schlauch :-(
Der folgende Code prüft ob in Spalte 11 "Anschreiben" steht. Falls ja, wird in der Spalte 10 "Test" geschrieben.
Wie sieht der Code aus wenn in Spalte 10 anstatt "Test" der Wert aus Spalte "9" geschrieben werden soll?
Für Euch doch bestimmt nur ein Klacks!
Vorab vielen Dank
Micha
Sub Test1()
Dim Zelle As Range
For Each Zelle In Range(Cells(1, 11), Cells(Rows.Count, 11).End(xlUp))
If Zelle = "Adressen" Then Cells(Zelle.Row, 10) = "Test"
Next
End Sub