Hallo,
ich importiere aus einem txt Dokument Daten die nur aus Kürzel bestehen,
diese ändere ich mir dann mit unterstehendem Code um (z.b. F-VSt = F, oder HaWe = F)sozusagen suchen und ersetzen, dies funktioniert auch ohne Probleme.
Nur ist dieses Array halt fest im Code geschrieben, ich würde es gerne über Einträge in einer Tabelle machen z.b.
arName1 = Sheets("Einstellungen").Range("C1:C60").Value
arName2 = Sheets("Einstellungen").Range("D1:D60").Value
dies funktiniert natürlich nicht so einfach , ist nur das man versteht was ich will , eine Spalte steht was ersetz werden soll und daneben durch was.
vielleicht hat jemand eine Lösung afür, denke es ist recht einfach... ich komm aber nicht drauf :-)
Vielen Dank
Dim rngBer As Range
Dim vntZelle As Variant
Dim arName1 As Variant
Dim arName2 As Variant
Dim i As Integer
arName1 = Array("F -WE / F - WE", "S-V", "F-V", "F-ZS2", "F-VSt", "HaWe", "F-SF", "F-Shu", "FS", "F-PV", "F_HKo", "F-WE", "F-Ex", "F-MK", "F-Br", "F-Lag", "F-UHD", "F-KM", "F-BRS", "F-Ab", "F-Anl", "FT", "F-HF", "F-WV", "F-KoHF", "NSO", "NT", "N-VST", "NS", "N-SF", "N-Ab", "N-UHD", "N-Anl", "N-WV", "NO", "NT", "NS", "N-V", "S-SF", "S-ZS2", "S-ZS1", "S-VST", "S-Shu", "S-PV", "S_HKo", "S-WE", "S-Ex", "S-MK", "S-Br", "S-Lag", "S-UHD", "S-Ab", "SS", "SST", "ST", "S-BRS", "S-Anl", "S-WV", "S-KoH", "S-HF")
arName2 = Array("F", "S", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "N", "N", "N", "N", "N", "F", "N", "N", "N", "N", "N", "N", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S", "S")
Set rngBer = Range("E9:NE195")
For i = 0 To 59
For Each vntZelle In rngBer
Call UpdatePercentage(i * 0.017)
If UCase(vntZelle.Value) = UCase(arName1(i)) Then vntZelle.Value = arName2(i)
If i = 59 Then
MsgBox ("Import erfolgreich!")
End If
Next