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:
70
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

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 
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 genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

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