Ob da noch jemand helfen kann....?
07.07.2017 22:33:23
STeve
Hallo nochmal.
Komme nicht weiter......ob das überhaupt geht? oder ist das Ende der Möglichkeiten?
Das Problem ist dass ich
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
gar nicht zu Verfügung habe.
Ich spreche das Blatt über WBK_SheetChange (weil es jedesmal neu erstellt wird und (ab der neunten STelle immer anders heißt) an:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Left(Sh.Name, 9) = "DPL PI BH" Then
If Not Intersect(Target, multibereich1_neu) Is Nothing Then
Call multi1(Target)
End If
End Sub
Im Modul multi1(Target) werden dann einige Variablen extra für die UF definiert:
ND_Tag = Tag
WTAnfang = Cells(16, Target.Column)
WTAnfang = Format(WTAnfang, "dddd")
ND_Tag_Ende = naechsterTag
WTEnde = Cells(16, Target.Column + 1)
WTEnde = Format(WTEnde, "dddd")
MitarbeiterName = ActiveSheet.Cells(Target.Row + 3, 1)
zeile = Target.Row
Spalte = Target.Column
Treffer = zeile & "," & Spalte
frmeinzelnenNDverplanen.Tag = Treffer
um schließlich die UF korrekt laden zu können:
frmeinzelnenNDverplanen.Show
Mit dem Sub:
Sub LoadUF1()
frmeinzelnenNDverplanen.Show
End Sub
fehlt mir die definierte Range (multibereich1_neu) um die re. MT einzugrenzen
und
auch die Variablen damit die UF beschriftet wird.
Müsst also so ablaufen:
Sub LoadUF1()
a.) ....zuerst abchecken ob richtige Range (Target, mulitbereich1_neu)
b.) wenn ok dann call multi1 (Target)
c.) und nach Variablen laden
d.) frmeinzelnenNDverplanen.Show
End Sub
? Wenn jemand eine Idee hat wäre ich sehr dankbar.
Guten Abend und
lg STeve
