nochmal zur Schilderung des Problems, weil ich es alleine doch nicht hinbekommen habe:
In Tabelle2 Zelle c2 soll nach Eintrag des Names und in Zelle c3 und des Vornamens in celle c4 automatisch ein Handzeichen erstellt werden.
Hierzu der Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim tb1 As Worksheet, tb2 As Worksheet
Set tb1 = Worksheets("tabelle1")
Set tb2 = Worksheets("tabelle2")
If tb2.Range("C2") <> "" And tb2.Range("C3") <> "" Then
tb2.Range("C4") = Mid(tb2.Range("C2"), 1, 2) & Mid(tb2.Range("C3"), 1, 1)
End If
End Sub
In tabelle1 Spalte c5:c500 stehen bereits vergebene Handzeichen.
Nun möchte ich durch eine Erweiterung erreichen, dass das zu erstellende Handzeichen zunächst mit den vergebenen Handzeichen verglichen und - falls bereits vorhanden - das Handzeichen aus den beiden ersten Buchstaben des Namens und dem 2. oder ggf. 3. etc. Buchstaben des Vornamens erstellt wird. Habe bereits viel rumexperimentiert, klappen tut jedoch kein Code.
Hier ein wahrscheinlich schlechtes Beispiel:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim tb1 As Worksheet
Dim tb2 As Worksheet
Dim z As Range
Dim s As Integer
Set tb1 = Worksheets("tabelle1")
Set tb2 = Worksheets("tabelle2")
s = 1
For Each z In tb1.Range("c5:c500")
If z = Mid(tb2.Range("C2"), 1, 2) & Mid(tb2.Range("C3"), s, 1) Then
s = s + 1
tb2.Range("C4") = Mid(tb2.Range("C2"), 1, 2) & Mid(tb2.Range("C3"), s, 1)
End If
Next
End Sub
Für jede Hilfe bin ich dankbar!
Gruss wullux