Es gibt 1 Tabelle, diese soll so manipuliert werden, dass etwas anderes rauskommt.
Namen der beiden Spalten sind "Artikelnummer" & "Name".
Folgendes soll sein:
ein neues Tabellenblatt soll enstehen
Spalte Artikelnummer bleibt unverändert
Spalte Name soll ebenfalls übernommen werden mit folgenden Änderungen:
Ersetzen der Umlaute ü mit ue
Ausnahme bei einem Artikel mit einer 2 innerhalb der Artikelnummernummer, hier soll der Umlaut nicht ersetzt werden
Die Zeilenanzahl soll als konstante Variable im Makro oben definiert werden
Ich habe dann einfach mal mit meinem Wissenstand ein bisschen rum probiert, allerdings habe ich _ bisher nur das hier zusammen bekommen und vermutlich auch alles falsch, oder?
Sub Aufgabe()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets.Add
ws.Name = "Tabelle-neu"
Worksheets("Tabelle-neu").Move after:=Worksheets("Tabelle1")
Worksheets("Tabelle1").Range("A1:A200000").Copy Destination:=Worksheets("Tabelle-neu"). _
Range("A1")
Worksheets("Tabelle1").Range("B1:B200000").Copy Destination:=Worksheets("Tabelle-neu"). _
Range("B1")
End Sub
Sub Umlaute()
Dim Zelle As Range
With Application.WorksheetFunction
For Each Zelle In Selection
Zelle.Value = .Substitute(.Substitute(.Substitute(.Substitute( _
.Substitute(.Substitute(.Substitute(Zelle.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Next Zelle
End With
End Sub
Gibt es dafür nicht eine einfachere Möglichkeit, wie einen SVerweis oder so? Das ganze muss als Makro geschrieben sein :/