Jetzt komme ich heute nochmal mit einer simplen Frage für Euch und einem Problem für mich!!
Mit folgendem Code füge ich über ein Auswahlmenü Daten ein:
Sub Einf()
Dim Z As Integer, s As Integer, st As Integer
Z = ActiveCell.Row
s = ActiveCell.Column
If (ActiveSheet.Name = "Formular" And (Z < 23 Or Z > 34)
Then
MsgBox "Markierung ausserhalb der Tabelle!" & _
Chr(13) & Chr(10) & "Bitte eine Zelle unter dem Auswahlmenü markieren!", , "Achtung"
Exit Sub
End If
st = ActiveSheet.DropDowns(1).ListIndex
ActiveSheet.Cells(Z, 3) = Worksheets("Lager").Cells(st + 1, 2)
ActiveSheet.Cells(Z, 8) = Worksheets("Lager").Cells(st + 1, 4)
ActiveSheet.DropDowns(1).ListIndex = 0
ActiveSheet.Cells(Z + 1, 3).Select
End Sub
funktioniert soweit auch!!
Meine Frage:
Hier grenze ich den Zeilenbereich zum einfügen ein!!
Wie kann ich hier auch die Spalten eingrenzen:
If (ActiveSheet.Name = "Formular" And (Z 34)
Then
MsgBox "Markierung ausserhalb der Tabelle!" & _
Chr(13) & Chr(10) & "Bitte eine Zelle unter dem Auswahlmenü markieren!", , "Achtung"
Exit Sub
End If
Danke für Tips
Gruß Uschi