Leere Zeile nicht in Dialogauswahl übernehmen
28.05.2004 11:43:34
Gregor
Wenn die die Dialogauswahl aufrufe, enthält der gewählte Bereich auch LEERE Zeilen. Dies würde ich gerne vermeiden, sodass ich nur zwischen den ausgefüllten Zeilen auswählen kann.
Weiss jemand Rat?????
Vielen Dank für den Input.
Sub Konten_Auswahl()
Application.ScreenUpdating = False
Sheets("K").Unprotect
Dim TB1 As Worksheet
Dim DL1 As DialogSheet
Dim Artikel As Range, LZelle As Range, AZelle As Range
Set TB1 = Worksheets("Nachträge")
Set TB2 = Worksheets("Basic")
ActiveSheet.Unprotect
Set DL1 = DialogSheets("Dialog1")
Set LZelle = TB2.[c1].End(xlDown)
Set AZelle = ActiveCell
DL1.[Artikel].ListFillRange = "Basic!c1:c150"
If Not DL1.Show Then Exit Sub
AZelle = DL1.[artikelnummer].Text
Sheets("K").Protect
Application.ScreenUpdating = True
End Sub