Hallo werte Community, ich bin ein VBA noob und weiß an dieser STelle nicht mehr weiter und wollte um Hilfe bzw. Ratschlag bitten.
Zu meinem Problem:
05.10.2015
|
06.10.2015 |
|
Wien |
Hartberg |
|
St. Pölten |
Mauerbach |
|
Linz |
Wien |
|
Graz |
Königstetten |
|
Vösendorf |
Tulln |
|
Mauerbach |
Bärenbach |
|
(leer) |
Krank |
|
Krank |
Pflege. U. |
|
Urlaub |
Mauer |
|
Tulln |
Mautern |
|
Mautern |
Steyr |
Ich habe auf der einen Seite einmal diese Tabelle, welche per VBA funktion nach den verschiedenen Werte abzusuchen ist. Das habe ich per funktion geschafft und mich richtig gefreut. Der Code ist unten zu finden:
Sub Maekro3()
schreibzeile = 5
For Each c In Range("C2:D12").Cells
eintrag = c.Value
gef = False
For Zeile = 5 To schreibzeile
If Cells(Zeile, 1).Value = eintrag Then gef = True
Next
If gef = False Then
Cells(schreibzeile, 1).Value = eintrag
schreibzeile = schreibzeile + 1
End If
Next
End Sub
Die Ausgabe hat folgendes richtig ergeben:
|
Wien |
|
Hartberg |
|
St. Pölten |
|
Mauerbach |
|
Linz |
|
Graz |
|
Königstetten |
|
Vösendorf |
|
Tulln |
|
Bärenbach |
|
(leer) |
|
Krank |
|
Pflege. U. |
|
Urlaub |
|
Mauer |
|
Mautern |
|
Steyr |
Nun habe ich diese Werte drei Spalten in einem neuen Tab abgespeichert und zugewiesen. hier die Übersicht:
|
abwesend |
Nahe |
Fern |
|
Pflege. U. |
Wien |
St. Pölten |
|
(leer) |
Vösendorf |
Linz |
|
Krank |
Mauerbach |
Graz |
|
Urlaub |
Tulln |
Mautern |
|
|
Königstetten |
Hartberg |
|
|
|
Bärenbach |
|
|
|
Mauer |
|
|
|
Steyr |
Meine Frage ist nun die folgende: Ich brauche eine Funktion die alle Werte in C2:D12 findet und diese dann in der Tabelle(F2:H9) sucht und dann den Name zuweist der Spalte zuweist.. Also in der Spalte C6 steht Vösendorf dann muss die Funktion in den Spalten abwesend, Nahe und Fern suchen und dann den Namen der Spalten ausgeben, in diesem Fall: Nahe.
Ich habe bereits das Internet auf Code der mir helfen könnten durchsucht und glaube aber nichts brauchbares gefunden zu haben, ich hoffe jemand kann mir da ein wenig weiter helfen.
Ganz liebe Grüße Rafael
|