Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
616to620
616to620
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inputbox Format

Inputbox Format
28.05.2005 14:29:10
Alois Gruber
Hallo
Kann ich für eine Inputbox ein zwingendes Eingabeformat vorschreiben?
1.Nur die Zahlen von 1 bis 53
2.Nur Datum im Format TT.MM.JJ
Bitte um eure Hilfe
Alois

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inputbox Format
28.05.2005 14:34:25
Jens
Hi,
verwende Application.Inputbox, da kannst du zumindest einen Datentyp vorgeben, die Auswertung, ob ein ein bestimmtest Format gegeben ist, musst du selbst programmieren.
mfg Jens
AW: Inputbox Format
28.05.2005 15:58:45
Hajo_Zi
Hallo Alois,
benutze eine UserForm. Erheblich einfacher.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


AW: Inputbox Format
28.05.2005 16:28:08
Alois Gruber
Leider Hajo bin ich mit userformen überhaupt nicht vertraut.
Ich habe keine Ahnung wie ich das umsetzten soll.
Ich brauch dann wohl eine userform für Kalenderwocheneingabe (1-53) und eine fürs Datum (TT.MM.JJ)
Nur ohne deine Hilfe bring ich das wohl nie hin.
Kannst du mir ein Grundgerüst der userformen erstellen.
Dann krieg ich es hoffentlich hin.
Bitte um deine Hilfe.
Gruß Alois
Anzeige
AW: Inputbox Format
28.05.2005 16:42:20
Hajo_Zi
Hallo Alois,
ich habe mal eine meiner Beispieldateien umgearbeitet.

Die Datei https://www.herber.de/bbs/user/23326.xls wurde aus Datenschutzgründen gelöscht

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
AW: Inputbox Format
28.05.2005 18:20:41
Alois Gruber
Oh danke Hajo.
Wie bekomme ich jetzt noch das Datum oder die KW in eine Variable um sie in diesem Makro zu verwenden?
Anstelle der Inputboxen?


      
Sub Filter_Datum()
Application.ScreenUpdating = True
    Dim zeile
Dim rg
Cells(Cells(65536, 1).End(xlUp).Row, 2).Activate
zeile = ActiveCell.Row
    Dim Start
         Start = Application.InputBox("Bitte geben Sie ein Datum ein TT.MM.JJ", Type:=1)
        
    If Worksheets("FTDM").AutoFilterMode = True Then
        Worksheets("FTDM").AutoFilterMode = False
    End If
    
Range("a2").Select
Dim Startdatum As Long
    Startdatum = CLng(DateValue(Start))

Range("a2").Select
Dim Enddatum As Long
    Enddatum = CLng(DateValue(Start))

Range("a5:bq5").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">=" & Startdatum, Operator:= _
    xlAnd, Criteria2:="<=" & Enddatum
Set rg = Range(Cells(zeile, 2), Cells(zeile, 61))
Range("a3").Select
ActiveCell.Formula = "=COUNTBLANK(" & rg.Address(0, 0) & ")"
Set rg = Range(Cells(zeile, 2), Cells(zeile, 61))
Range("a3").Select
Cells(Cells(65536, 1).End(xlUp).Row, 2).Activate
zeile = ActiveCell.Row
Cells(3, 1).Value = Cells(Cells(65536, 1).End(xlUp).Row, 66).Value
Cells(Cells(65536, 1).End(xlUp).Row, 2).Activate
zeile = ActiveCell.Row
Dim intFrage As Integer
intFrage = MsgBox("Am " & Cells(ActiveCell.Row, 1).Value & "  sind " & Cells(Cells(65536, 1).End(xlUp).Row, 66).Value & "  Mitarbeiter verfügbar", vbOkay, "Rückfrage")
If intFrage = 7 Then
    Exit Sub
   End If
   End Sub
 

     Code eingefügt mit Syntaxhighlighter 3.0

Anzeige
AW: Inputbox Format
28.05.2005 18:25:04
Hajo_Zi
Hallo Alois,
ich baue die Datei zum testen nicht nach.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
AW: Inputbox Format
28.05.2005 18:52:12
Alois Gruber
Okay Dann Danke für die Hilfe

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige