Schleifenfehler
10.12.2003 11:59:32
Peter
wer kann helfen? So ganz funktioniert die Sache nicht.
Wie beende ich die Mitarbeiterschleife,wenn kein Eintrag vorhanden ist?
Dank im voraus
Peter
~begin~
Sub MitarbEintragen()
Dim beginn, PersZahl, Zähler, Zeichenfolge
Dim MA As Object
'Mitarbeiter zählen & eintragen
With Sheets("Mitarbeiter")
Range("B2").Select
beginn = ActiveCell.Address
ActiveCell.End(xlDown).Select
PersZahl = Range(beginn, ActiveCell).Rows.Count
End With
'Mitarbeiterdaten eintragen
ActiveSheet.Range("B8").Select
For Zähler = 1 To PersZahl
Set MA = Sheets("Mitarbeiter").Cells(1 + Zähler, 2)
'Zeichenfolge mit ersten Buchstaben des Vornamens und Nachname
Zeichenfolge = MA.Offset(0, 1).Value & ", " & Left(MA.Value, 1) & ". "
ActiveCell.Value = Zeichenfolge
' Nächste Zelle markieren -----hier wird die Anordnung festgelegt
Range("B8").Offset(Zähler, 0).Select
Next
End Sub
~end~