Ich möchte Vorname und Name in eine Zelle zusammenfügen.
C17 und D17 sollen mit einer Leerstelle in E17 zusammengefügt werden.
Ich habe diesen Code gefunden bekomme es aber nicht hin.
Cells(17, 5).Value = Cells(17, 3).Value & " " & Cells(17, 4).Value
Könnt ihr mir den Code in folgendes Makro einbauen?
Sub Rolf()
Dim Suche As Integer
Dim Zeile As Long
Dim Spalte As Integer
Sheets("Druck").Select
Range("B14:C17,D17,C18,C19,C20,D21").ClearContents
Suche = Sheets("Druck").Cells(7, 8)
Application.ScreenUpdating = False
Worksheets("Ergebnisse").Activate
Cells(1, 1).Select
For Zeile = 1 To Cells.SpecialCells(xlLastCell).Row
If Sheets("Ergebnisse").Cells(Zeile, 3) = Suche Then
Sheets("Druck").Cells(14, 2) = Sheets("Ergebnisse").Cells(Zeile, 12)
Sheets("Druck").Cells(17, 3) = Sheets("Ergebnisse").Cells(Zeile, 6)
Sheets("Druck").Cells(17, 4) = Sheets("Ergebnisse").Cells(Zeile, 5)
Sheets("Druck").Cells(18, 3) = Sheets("Ergebnisse").Cells(Zeile, 10)
Sheets("Druck").Cells(19, 3) = Sheets("Ergebnisse").Cells(Zeile, 1)
Sheets("Druck").Cells(20, 3) = Sheets("Ergebnisse").Cells(Zeile, 2)
Sheets("Druck").Cells(21, 4) = Sheets("Ergebnisse").Cells(Zeile, 4)
End If
Next Zeile
If IsEmpty(Sheets("Druck").Cells(17, 3)) Then
Sheets("Druck").Select
MsgBox "Startnummerdaten nicht vorhanden!"
Exit Sub
End If
Application.ScreenUpdating = True
Sheets("Druck").Select
Range("H7").Select
' ActiveSheet.PrintOut
End Sub
Vielen Dank für eure Hilfe!
Tschüß
Rolf