Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
652to656
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Jahreszahl über UF oder InputBox ?

Jahreszahl über UF oder InputBox ?
17.08.2005 14:53:39
Steve
Hallo,
ich hab zwar keine Ahnung wie es funktioniert,
aber folgende möchte ich gerne realisieren:
In einer UF oder InputBox soll eine Jahreszahl
eingegeben werden und nach OK in TabBl1,A1
übertragen werden.Wird die Aktion in der
UF oder InputBox abgebrochen soll die ursprüng-
liche Jahreszahl in A1 erhalten bleiben.
Die Eingabe der Jahreszahl darf auch nur zwischen
2000 und 2020 liegen.
Gibt es für so eteas ein Beispiel?
Danke
Steve

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Jahreszahl über UF oder InputBox ?
17.08.2005 15:06:43
Nepumuk
Hi Steve,
versuch es mal so:
Public Sub Jahreszahl()
    Dim Eingabe As String
    Do
        Eingabe = InputBox("Bitte Jahreszahl eingeben.", "Eingabe")
        If StrPtr(Eingabe) = 0 Then Exit Sub
        If IsNumeric(Eingabe) Then
            If Fix(Eingabe) = Eingabe Then
                If Val(Eingabe) >= 2000 And Val(Eingabe) <= 2020 Then
                    Exit Do
                Else
                    MsgBox "Das war keine Jahreszahl zwischen 2000 und 2020.", 48, "Hinweis"
                End If
            Else
                MsgBox "Das war keine Jahreszahl zwischen 2000 und 2020.", 48, "Hinweis"
            End If
        Else
            MsgBox "Das war keine Jahreszahl zwischen 2000 und 2020.", 48, "Hinweis"
        End If
    Loop
    Cells(1, 1).Value = Val(Eingabe)
End Sub
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
typische Anfängerfrage Wo.....
17.08.2005 15:18:45
Steve
Hallo Nepumuk,
danke für deine schnelle Antwort,
aber wo setze ich den Code ein und Rufe die Box auf?
Gruß von einem Anfänger
Steve
AW: typische Anfängerfrage Wo.....
17.08.2005 15:26:16
Nepumuk
Hi Steve,
mit Alt+F11 den VBA - Editor öffnen. In dessen Menüleiste unter Einfügen - Modul anklicken. Den Code in das sich öffnende Codefenster kopieren und den Editor mit Alt+q wieder schließen. Mit Alt+F8 das Makrofenster aufrufen, dort kannst du unter Optionen dem Makro einen Shotcut zuweisen. Oder willst du einen Button?
Gruß
Nepumuk
Excel & VBA – Beispiele
AW: typische Anfängerfrage Wo.....
17.08.2005 15:34:11
Steve
Hi Nepumuk,
ich bräuchte einen Button!
Folgendes habe ich soeben herausgefunden
und es funktioniert sogar:
Deinen Code indas TabBl, Schaltfläche zugewiesen,
fertig.
Ist das der richtige Weg, oder sollte der Code,wie
du es beschrieben hast, in ein Modul?
Wo ist der Unterschied?
Gruß
Steve
Anzeige
AW: typische Anfängerfrage Wo.....
17.08.2005 15:40:02
Nepumuk
Hi Steve,
ich weiß jetzt nicht, was du mit "Deinen Code indas TabBl" meinst.
Gruß
Nepumuk
Excel & VBA – Beispiele
AW: typische Anfängerfrage Wo.....
17.08.2005 15:47:42
Steve
Hi Nepumuk,
rechtsklick auf Reiter TabBl1, Code anzeigen,
Deinen Code eingefügt, Schaltfläche zugewiesen.
Deine Beschreibung geht über Modul .....
darum meine Frage: Wo ist der Unterschied?
Welcher ist jetzt der bessere weg?
Gruß
Steve
AW: typische Anfängerfrage Wo.....
17.08.2005 15:55:39
Nepumuk
Hi Steve,
Ahh, ok. Das ist wohl mehr eine Frage der Philosophie. Ich versuche immer möglichst wenig in diese internen Klassenmodule zu packen, da ich, wenn ich in den Editor gehe zwar alle Module und Klassenmodule sehe, da aber Tabellen und Mappe immer angezeigt werden, ich nicht immer Makros dahinter vermute.
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
AW: typische Anfängerfrage Wo.....
17.08.2005 16:00:52
Steve
Hi Nepumuk,
vielen Dank für Deine Erklärung und Hilfe.
Gruß
Steve
Noch eine Zusatzfrage
17.08.2005 17:38:21
Sreve
Hallo nochmal,
wo wird in dem Code von Nepumuk eigentlich festgehalten,
im welchen TabBl die Jahreszahl erscheinen soll?
Ein Nachdenklicher
Steve
AW: Noch eine Zusatzfrage
17.08.2005 17:40:04
Nepumuk
Hi,
automatisch in der aktiven Tabelle.
Gruß
Nepumuk
Excel & VBA – Beispiele
AW: Noch eine Zusatzfrage
17.08.2005 18:08:57
Steve
Hi Nepumuk,
da muß ich doch noch ein bisl nerven.
Angenommen:
In meiner Mappe befinden sich 18 TabBl.
Deinen Code habe ich wie Beschrieben eingefügt.
Aufgerufen könnte die InputBox von jedem TabBl
über eine Befehlsschaltfläche.Aber TabBl1 ist dann
nicht mehr das aktive TabBl. oder sehe ich das Falsch?
Gruß
Steve
Anzeige
AW: Noch eine Zusatzfrage
17.08.2005 18:15:55
Nepumuk
Hi,
ja richtig. Wenn du es immer in die selbe Tabelle haben willst, musst du das Makro etwas ändern.
Gruß
Nepumuk
Excel & VBA – Beispiele
AW: Noch eine Zusatzfrage
17.08.2005 18:28:09
Steve
Hi Nepumuk,
komme leider nicht darauf, wie und wo.
Hilf mir bitte auf die Sprünge.
Danke Steve
AW: Noch eine Zusatzfrage
18.08.2005 09:32:08
Nepumuk
Hi,
an Stelle von:
Cells(1, 1).Value = Val(Eingabe)
schreibst du:
Worksheets("Tabelle1").Cells(1, 1).Value = Val(Eingabe)
wobei du natürlich an Stelle von Tabelle1 deinen Tabellennnamen eintragen musst.
Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige

300 Forumthreads zu ähnlichen Themen

Inputbox Schriftart oder Farbe verändern
Gunter

Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?
28.08.2008 15:32:00
Thread-ID: 1005474
7 Beiträge
Anzeige
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
Zugriff auf Access-DB über DAO oder ADO
Armin

Hallo,
ich hätte eine allgemeine Frage zum Zugriff auf Access-Datenbanken.
Welche Zugriffsmethode auf eine Access-DB würdet Ihr generell empfehlen: ADO oder DAO?
Gibt es in der Praxis Vor- oder Nachteile für die eine oder andere Zugriffsweise?
Vielen Dank für Euere Meinungen und...
03.09.2008 14:28:55
Thread-ID: 1007110
2 Beiträge
Anzeige
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
5
5
1
5
4
5
6
8
2
11
2
2
3
8
4
7
3
15
3
16
5
4
2
1