per re. MT - Userform öffnen | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Matthias L.........super Klasse. DANKE. :-)))
Habe die Subs in Modul(ueberreMTKontextmenueUFsladen) eingetragen:

Sub AddToCellMenu()
End Sub

Sub DeleteFromCellMenu()
End Sub

Sub LoadUF1()
frmeinzelnenNDverplanen.Show
End Sub

WBK - Activate und Deactivate erledigt.
.... aber natürlich bietet es mir die UF (frmeinzelnenNDverplanen.Show) über das re. MT-Kontext-Menü natürlich jederzeit in der Mappe in jeder Zelle (Range) an.
Damit die UF richtig geladen/initialisiert wird muss sie aus Change Ereignis
Public
Sub multi1(ByVal Target As Range)
heraus geladen werden. 1.) sind dann die User- Eingaben in die UF und die dann rückübermittelten Einträge in die _ Tabelle - an richtiger Position (Target Row und Columns, Offset usw.) 2.) lbl Beschriftungen in der UF werden über Variablen (wieder Target.Row, Offset usw.) aus dem _ Change geladen (und die fehlen natürlich jetzt) Mit der Bitte um Lösung mfg STeve

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Intersect(Target, Range("C2:AG19")) Is Nothing Then Call AddToCellMenu 'Re.Kontexmenue erstellen Else Call DeleteFromCellMenu 'Re.Kontexmenue löschen End If End Sub

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, multibereich1_neu) Is Nothing Then 'nur in diesem Bereich wird _ die re.MT-UF angeboten Call AddToCellMenu 'Re.Kontexmenue erstellen Else Call DeleteFromCellMenu 'Re.Kontexmenue löschen End If End Sub

Dim ws As Worksheet Sheets(1).Copy(After:=Sheets(Sheets.Count)) Set ws = ActiveSheet ws.Name = "DPL PI BH " & FormularStarteingabeMaske.ComboMonat.Value & " " & _ FormularStarteingabeMaske.ComboJahr.Value ' neues Tabellenblatt wird generiert

Beliebteste Forumthreads (12 Monate)

per re. MT - Userform öffnen

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

per re. MT - Userform öffnen

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread