das sollte es in etwas sein:
Sub Replace_MainData()
Code eingefügt mit Syntaxhighlighter 1.16
Option Explicit
Dim Cr As Long, CC As Integer, i As Integer
Dim wks1 As Worksheet, wks2 As Worksheet
Dim Mr As Variant, Wr As Variant, Mf As Variant, Ff As Variant
Set wks1 = Worksheets("Stammdaten")
Set wks2 = Worksheets("Klasseneinteilung")
Mf = wks2.Range("M2")
Ff = wks2.Range("M3")
Mr = wks2.Range("N2")
Wr = wks2.Range("N3")
Cr = 65536
CC = 4
If wks1.Cells(Cr, CC) = "" Then
Cr = wks1.Cells(Cr, CC).End(xlUp).Row
End If
For i = 1 To Cr
If UCase(wks1.Cells(i, CC)) = UCase(Mf) Then
wks1.Cells(i, CC) = Mr
ElseIf UCase(wks1.Cells(i, CC)) = UCase(Ff) Then
wks1.Cells(i, CC) = Wr
End If
Next i
End Sub
Gruss Rainer
"Nun möchte ich, das diese Buchstaben mit Tabellenblatt Klasseneinteilung Zelle M2 (für m) und M3 (für w) verglichen werden und bei m der Wert aus Zelle Tabellenblatt Klasseneinteilung N2 und bei w der Wert aus Zelle Tabellenblatt Klasseneinteilung N3 wieder nach Spalte D in die jeweilige Zelle eingefügt wird."
das verstehe ich ueberhaupt nicht. warum der umweg ueber M2, M3 ??
der eintrag in D ist sowieso nicht moeglich, weil sich ein ZIRKELBEZUG ergibt, also hilfsspalte.
mit DATEN-GÜLTIGKEIT kannst Du fehleingaben in D verhindern.
gruss thomas
Vielen Dank!
Genau das habe ich gesucht!
Tschüß
Rolf
Ramses hat mir bereits geholfen!
Tschüß
Rolf