VBA / Wert aus nebenstehender Zelle?

Bild

Betrifft: VBA / Wert aus nebenstehender Zelle?
von: Micha
Geschrieben am: 23.04.2015 13:08:52

Hallo liebe Spezialisten,
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

Bild

Betrifft: AW: VBA / Wert aus nebenstehender Zelle?
von: Rudi Maintaire
Geschrieben am: 23.04.2015 13:13:42
Hallo,
If Zelle = "Adressen" Then zelle.offset(,-1) = zelle.offset(,-2)
Gruß
Rudi

Bild

Betrifft: AW: VBA / Wert aus nebenstehender Zelle?
von: Micha
Geschrieben am: 23.04.2015 13:17:14
Jaaaa, genau so :-)
RUDI zum wiederholten mal "Vielen Dank"
Gruß
Micha

 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA / Wert aus nebenstehender Zelle?"