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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen