Gruppe
Funktion
Problem
Ich habe 2 Blätter mit je einer Spalte für Vor- und Nachnachamen. Wie kann ich mir in einem Übersichtsblatt unter dem Tabellenblattnamen ein X anzeigen lassen, in dem sowohl Vor- als auch Nachname in einer Zeile vorhanden sind?
StandardModule: Modul1
Sub InsertTitel()
Dim rng As Range
Dim var As Variant
Dim iRow As Integer, iRowL As Integer
Set rng = Worksheets("Titel").Range("A1").CurrentRegion
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 2 Step -1
If Cells(iRow, 1).Value <> Cells(iRow - 1, 1).Value Then
Rows(iRow).Insert
Rows(iRow).Font.Bold = True
var = Application.Match(Cells(iRow + 1, 1).Value, rng.Columns(1), 0)
Cells(iRow, 1).Value = Cells(iRow + 1, 1).Value
If Not IsError(var) Then
Cells(iRow, 2).Value = rng.Cells(var, 2).Value
Else
Cells(iRow, 2).Value = "Kein Titel"
End If
End If
Next iRow
End Sub