Office: Text in Zahlen codieren

Hallo zusammen

ich habe eine Frage bzgl. Text in Zellen, welche systematisch mit numerischen Werten codiert und dann durch diese ersetzt werden sollen. Es geht dabei um eine Auswertung psychologischer Fragebogen.

Beispiel:

Variable: angst_1 --> das entsprechende Item kann auf einer Skala von 1-5 beantwortet werden. 1 = "überhaupt nicht", 5 = "vollständig". In meiner exportierten Tabelle sind die Werte in Worten, also "überhaupt nicht" etc. Wie kann ich diese so codieren, dass diese in meiner Tabelle durch den jeweiligen numerischen Wert ersetzt werden, also z.B. 1 oder 5? Kann ich dies für mehrere Zellen machen, sodass ich dies nicht manuell einfüllen muss?

Ich würde mich sehr über Hilfe freuen, vielen lieben Dank schonmal!

milechel

 

Hola,
zeig bitte eine Excel-Beispieldatei mit händischem Wunschergebnis.
Gruß,
steve1da

 

Hallo steve1da

danke für deine Antwort.
Hier unten siehst du einen Ausschnitt der Tabelle. Mein Ziel: alle "gar nicht" in "0", alle ziemlich in "3", etc. umcodieren. Macht das Sinn?

lieber Gruss
milechel

 

Das wäre dann etwas für Suchen/Ersetzen, denn dass soll ja bestimmt in der Zelle selber passieren, oder?
Automatisiert mit Formeln geht das Ersetzen in der gleichen Zelle nicht, dass muss dann über VBA passieren.

 

Hallo,

in der beiliegenden Datei habe ich im allgemeinen Codemodul "Modul1" das Makro "Bereich_Umcodieren" eingefügt:

Code:

Option Explicit

Public Sub Bereich_Umcodieren()
   Dim rngZelle As Range
   Dim rngCodierung As Range
   Dim vWert As Variant
  
   'Diese Einträge für die struktur. Tabelle "tabCodierung" eventuell anpassen:
   Set rngCodierung = Worksheets("Tabelle1").ListObjects("tabCodierung").DataBodyRange
  
   On Error GoTo Err_Zelle
  
   For Each rngZelle In Selection.Cells
     With rngZelle
        vWert = WorksheetFunction.VLookup(.Value, rngCodierung, 2, 0)
        .Value = vWert
     End With
Nxt_Zelle:
   Next rngZelle
   Exit Sub
  
Err_Zelle:
   Resume Nxt_Zelle
  
End Sub

Die Bedienung des Makros habe ich im Arbeitsblatt "Tabelle1" eingefügt.