Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
18.04.2024 08:06:05
Power Query Tabelle aus jeder Spalte erweitern?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
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
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Popup-Fenster

Popup-Fenster
Ringlstetter
Hallo allerseits,
ich möchte nur in einem bestimmten Tabellenblatt ein Popup haben, welches eine Frage stellt. Die Zahl als Antwort soll dann in ein bestimmtes Feld geschrieben werden.
Das Popup soll so lange fragen und die Werte immer ein Feld unter dem letzten eingeben, bis in einem anderen Feld in der selben Zeile kein Wert mehr steht..war das deutlich? ich glaub nicht ;)
also:
- Wenn "tabellenblatt" aktiv dann gucken, ob in h18 (erste mögliche zeile) was steht dann popup "Frage?"
- Antwort in a 18 schreiben.
- Gucken, ob in h19 was steht, dann popup usw. bis in h nix mehr steht.
Geht das irgendwie? Ich hab zwar schon n Popup mit der richtigen Frage, allerdings poppt das entweder bei Klick in jede Zeile auf, schreibt den Wert in ne falsche Zeile usw usf...ich bin am durchdrehen ;)
Gruß
Kai

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Zeig mal den durchgedrehten Code! (owT)
05.03.2010 10:47:24
Renee

AW: Popup-Fenster
05.03.2010 10:49:18
Reinhard
Hallo Kai, 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Z As Long, Eing
Z = Cells(Rows.Count, 8).End(xlUp).Row
If Z  1 Then Exit Sub
If Intersect(Target, Range(Cells(18, 1), Cells(Z, 1))) Is Nothing Then Exit Sub
Eing = InputBox("Zahl?")
Application.EnableEvents = False
Target.Value = Eing
Application.EnableEvents = True
Target.Offset(1, 0).Select
End Sub

Gruß
Reinhard
AW: Popup-Fenster
05.03.2010 10:53:06
Ringlstetter
Super danke..das hat prima geklappt..meinen durchgedrehten brauche ich dann ja nicht mehr posten ;) is ja peinlich..
AW: Popup-Fenster
05.03.2010 10:59:16
welga
Hallo,
Sub workbook_open()
b = 1
d = Sheets(1).UsedRange.End(xlUp).Row
If d = 1 Then d = 17
Do Until Cells(d + b, 8)  ""
c = InputBox("Zahl", "Popup")
Cells(d + b, 1) = c
b = b + 1
Loop
End Sub
gruß
welga
Anzeige

300 Forumthreads zu ähnlichen Themen

PopUp mit Eingabefeld
Peter

Hallo!
Wer kann mir hier weiterhelfen? Ich versuche ein PopUp zu erstellen, in welchem ein Eingabefeld für einen Betrag ist. Der Betrag soll dann in eine Zelle der Tabelle geschrieben werden. Bisher kann ich leider nur diese Pop ups erstellen:
Sub Abfrage() If MsgBox( _ prompt:="Bitte...
27.10.2008 23:54:26
Thread-ID: 1019775
2 Beiträge
Anzeige
Makro: Wenn dann
Julia

Hallo in meiner xls siehe:
https://www.herber.de/bbs/user/60693.xls
sind die Spalten A bis C gegeben
Wie kann ich den gelben Bereich (Spalte D) per Makro auffülen
Immer den letzten Status in Spalte C (nach...) in die entsprechende Zelle von Spalte D (Aktueller Status) zu schrei...
26.03.2009 12:47:12
Thread-ID: 1064207
12 Beiträge
pop up Fenster bei Fehler eines updates
Michael

Hallo!
Ich habe eine Tabelle die alle 30 Minuten im Hindergrund aktualisiert wird. Wenn bei der Aktualisierung ein Fehler auftritt, soll ein popup Fenster erscheinen. (Egal wo ich mich dann aktuell im System befinde/ Word / outlook etc.)
Danke
Gruß Michael
01.10.2009 12:12:04
Thread-ID: 1106590
4 Beiträge
Anzeige
POP UP Fenster
pitmu1@web.de

Hallo zusammen,
suche eine Excel Lösung für folgendes Problem:
Habe z.Bsp. eine Zelle in der die Anzahl meiner Besuche im z.Bsp. April stehen.
Beim Klicken auf diese Anzahl soll nun ein POP UP Fenster geöffnet werden, indem
die einzelnen Besuche mit genauem Termin darinstehen b...
01.07.2010 16:29:31
Thread-ID: 1164979
2 Beiträge
Fensterstatus: xlminimized beim Öffnen setzen
Constantin

Hallo,
es ist mir nicht gelungen, folgendes Problem zu lösen: Ich habe eine Mappe1 im Pfad1, die ich öffne. Da ich dort Gültigkeitsregeln hinterlegt habe, die in Mappe2, Pfad2 stehen bzw. definiert sind (als Liste mit Bezug auf Mappe2), möchte ich Mappe2 (nur READ) beim Öffnen von Mappe1 gl...
04.01.2013 13:03:42
Thread-ID: 1292866
3 Beiträge
PopUp Fenster in bestimmtes Arbeitsblatt
Ann

Hallo Leute,
ich hab ein Workbook, in das ich Daten einlese und verarbeite. Am Ende soll sich ein PopUp-Fenster öffnen, das angibt, dass das Programm fertig ist. Das funktioniert auch soweit, nur habe ich drei Sheets und das PopUp-Fenster öffnet sich im 3. und nicht wie gewollt im 1.
Di...
13.05.2013 16:37:33
Thread-ID: 1312755
4 Beiträge
automatisches EMail wenn Wert überschritten
Julia

Hi!
ich habe eine Exceltabelle mit Messwerten pro Monat. Zu jedem Messwert gibt es einen Grenzwert, den ich "überwachen" muss. Da ich von diesen Tabellen sehr viele habe dachte ich an eine autmatisierte EMail aus Excel heraus, sobald der Grenzwert erreicht bzw. überschritten wurde (Text mus...
24.06.2013 10:16:05
Thread-ID: 1319275
14 Beiträge
automatisches Email wenn Wert überschritten - neu
Julia

Hi!
ich hatte das Problem schon einmal hier hineingestellt und auch eine super tolle Antwort von Tino erhalten (nochmal Danke dafür!!!), das Makro läuft 1A in den darauf zugeschnittenen Dateien.
Jetzt wollte ich es auf eine etwas andere Anordnung der Excel Tabelle übertragen, aber da is...
04.07.2013 11:58:52
Thread-ID: 1321056
8 Beiträge

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
1
2
11
3
3
1
2
3
13
7
2
1
7
5
9
2
7
2
3
1
1
10
5
1
9