wahrscheinlich hat mein Problem eine sehr einfache Lösung, aber als absoluter Laie…
Ich habe eine Exceltabelle mit Daten die ich aus einer DB exportiere (Name,Vorname,Geschlecht,usw). Nun kommt bei der Spalte „Geschlecht“ 1 für männlich und 2 für weiblich raus. Diese Daten muss ich in ein anderes Programm importieren, das aber kein 1 und 2 versteht sondern „w“ und „m“. Um dies nicht jedes mal manuell ändern zu müssen, habe ich mir gedacht, ein Makro wäre da doch genau das richtige… Oder?
Hat irgend jemand einen funktionierenden Code für mich? Oder irgend eine andere Lösung (zu berücksichtigen ist, dass die Datei mit den neuen Daten immer überschrieben wird).
Ich hoffe mein Problem richtig beschrieben zu haben…
Ich bin dankbar für jede Hilfe!!!
Spalte „Geschlecht“ 1 für männlich und 2 für weiblich raus.
Diese Daten muss ich in ein anderes Programm importieren, das
aber kein 1 und 2 versteht sondern „w“ und „m“. Um dies nicht
jedes mal manuell ändern zu müssen, habe ich mir gedacht, ein
Makro wäre da doch genau das richtige… Oder?
Hi Silke,
Option Explicit
'
Sub tt()
Dim Zei As Long
For Zei = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Select Case Cells(Zei, 5).Value
Case 1, "1"
Cells(Zei, 5).Value = "m"
Case 2, "2"
Cells(Zei, 5).Value = "w"
Case Else
Cells(Zei, 5).Value = "?"
End Select
Next Zei
End Sub
End If
Ich habe eine Exceltabelle mit Daten die ich aus einer DB
exportiere (Name,Vorname,Geschlecht,usw). Nun kommt bei der
Spalte „Geschlecht“ 1 für männlich und 2 für weiblich raus.
Diese Daten muss ich in ein anderes Programm importieren, das
aber kein 1 und 2 versteht sondern „w“ und „m“. Um dies nicht
jedes mal manuell ändern zu müssen, habe ich mir gedacht, ein
Makro wäre da doch genau das richtige… Oder?
Warum nutzt Du nicht die Ersetzen-Funktion? Einfach den Bereich markieren (nicht die Spalte!) und unter „Bearbeiten -> Ersetzen“ z.B. nach „1“ suchen und durch „m“ ersetzen.