Thema Datum  Von Nutzer Rating
Antwort
Rot Variable über Userform an Modul über geben
06.01.2021 05:34:07 Rene
NotSolved
06.01.2021 07:24:49 Gast64399
NotSolved
06.01.2021 08:48:50 Rene
NotSolved
06.01.2021 10:09:04 Rene
Solved

Ansicht des Beitrags:
Von:
Rene		 Datum:
06.01.2021 05:34:07		 Views:
1802		 Rating:
     
Antwort:
  Ja
Thema:
Variable über Userform an Modul über geben

Guten Morgen und Gesundes neues Zusammen,

ich habe folgende Frage ich möchte gern per Userform eine Variable an ein Modul übergeben.

genau handelt es sich um ein Datum nach dem später gesucht werden soll userform wurde erstellt und mir wird das Datum bis 7 tage im Vorlauf angezeigt. Leider kann ich das ausgesuchte Datum nicht an das Modul über gegeben und im Anschluss danach suchen.

LG Rene und vielen dank im Vorraus

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Public Sub Test()
 Dim Zeile    As Long
  Dim ZeileOut As Long
    Dim letzte_zeile As Long
     Dim Eingabedatum As String
     
      
   
   
  With Application
     .ScreenUpdating = False
     .EnableEvents = False
     .Calculation = xlCalculationManual
  End With
  Sheets("Umrechnung FP").Activate
   
sprung1:
  Dateneingabe.Show
  If Eingabedatum = "" Then
    z = MsgBox("Die Eingaben sind nicht vollständig!", vbCritical + vbOKCancel, "Achtung!")
    If z = 1 Then
        GoTo sprung1
    Else
        Exit Sub
    End If
End If
     
If Range("A2").Value = "D" Then
    Sheets("FP(0)").UsedRange.ClearContents
      With Sheets("Umrechnung FP")
         ZeileOut = 1
            For Zeile = 2 To .Cells(Rows.Count, "F").End(xlUp).Row
              If .Cells(Zeile, "F").Value = Eingabedatum Then
                 .Rows(Zeile).Copy destination:=Worksheets("FP(0)").Rows(ZeileOut)
             ZeileOut = ZeileOut + 1
         End If
     Next Zeile
   End With
   Sheets("FP(0)").Activate
   Range("A1:Y250").Sort Key1:=Range("G1"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Else
  Sheets("FP(0)ARR").UsedRange.ClearContents
    With Sheets("Umrechnung FP")
         ZeileOut = 1
             For Zeile = 2 To .Cells(Rows.Count, "F").End(xlUp).Row
                 If .Cells(Zeile, "F").Value = Date Then
             .Rows(Zeile).Copy destination:=Worksheets("FP(0)ARR").Rows(ZeileOut)
         ZeileOut = ZeileOut + 1
       End If
    Next Zeile
   End With
   Sheets("FP(0)ARR").Activate
   Call DELSORT
   Range("A1:Y250").Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("G1"), Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
            
            
    Call SheetsAusblenden
            
           With Application
            .ScreenUpdating = True
            .EnableEvents = True
            .Calculation = xlCalculationAutomatic
           End With
    
    
 
End Sub
 
 
2.Userform
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
 
Public Sub cmdUebernahme_Click()
    Eingabedatum = Date
End Sub
 
Public Sub UserForm_Initialize()
Dim z As Integer
Dim Datum As String
 
Datum = Date
For z = 1 To 7
    Dateneingabe.lstDatum.AddItem Datum & " (" & z - 1 & ")"
    Datum = Date + z
Next z
     
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Variable über Userform an Modul über geben
06.01.2021 05:34:07 Rene
NotSolved
06.01.2021 07:24:49 Gast64399
NotSolved
06.01.2021 08:48:50 Rene
NotSolved
06.01.2021 10:09:04 Rene
Solved