Groß,- Kleinschreibung ignorieren
22.05.2021 10:41:35
Fred
bei der Nutzung einer Original-Quelle mit meinen Datensätzen gibt es ein Problem mit der Groß,- Kleinschreibung beim Finden entsprechender DS.
Die Originalquelle ("Ergebnisse") beinhaltet z.B. MAINZ 05 , meine Darstellung in den Sheet ("Tabelle1") ist allerdings Mainz 05
Der Unterschied liegt also in der Groß,- Kleinschreibung.
Ich möchte Ergebnisse der Tabelle "Ergebnisse" entsprechend der Tabelle "Tabell1" zuordnen,- dazu nutzte ich bisher folgendes VBA
Sub Ergebnisse()
Dim ArZiel, ArQuelle, rngZiel As Range, n&, c&
With Sheets("Ergebnisse")
Set rngQuell = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).Offset(0, 2).Resize(, 4)
End With
With Sheets("Tabelle1") ' Basis
Set rngZiel = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp)).Offset(0, 2).Resize(, 4)
End With
ArQuelle = rngQuell.Value2
ArZiel = rngZiel.Value2
For n = LBound(ArQuelle) To UBound(ArQuelle)
For c = LBound(ArZiel) To UBound(ArZiel)
If ArZiel(c, 1) = ArQuelle(n, 1) And _
ArZiel(c, 4) = ArQuelle(n, 4) Then
For sp = 8 To 11 'Wertespalten
Sheets("Tabelle1").Cells(c + 1, sp + 3) = Sheets("Ergebnisse").Cells(n + 1, sp + 0) _
' Tabelle1, Ergebnisse
Next sp
For sp = 12 To 60 'Wertespalten
Sheets("Tabelle1").Cells(c + 1, sp + 3) = Sheets("Ergebnisse").Cells(n + 1, _
sp - 0).Formula ' Wahl1, Ergebnisse
Next sp
' Exit For
End If
Next
Next
End Sub
Der Code funktioniert einwandfrei wenn Groß,- Kleinschreibung in beiden Sheets ("Ergebnisse", "Tabelle1") identisch sind.Meine Frage;
Kann mir bitte ein Excel,- VBA Profi entsprechend modifizieren,- so das Groß,- Kleinschreibung "keine Rolle spielen"?!
Gruss
Fred