Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1040to1044
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
Inhaltsverzeichnis

Makto wert verändern

Makto wert verändern
26.01.2009 10:43:24
ms_michael_2002@yahoo.de
Hallo!
Wollte über inputbox eine zahl eingeben die dann solange bestehen bleibt oder verglichen wird, bis das program beendet ist. Muss man dann eine funktion eingeben? Keine Ahnung.
Gruß Michael

Sub p()
dim zahl as integer
zahleingeben
If Sheets("Tabelle1").Range("A1") > zahl Then
Msgbox(" Achtung")
End If
End Sub



Sub zahleingeben()
dim zahl as integer
zahl = inputBox ("Zahl eingeben:     ")
End Sub


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makto wert verändern
26.01.2009 10:45:09
Andi
Hi,
deklariere die Variable zahl außerhalb der Prozedur als public.
Schönen Gruß,
Andi
Globale Variable!
26.01.2009 10:52:00
RS
Hi Michael,
Dein Ansatz kann so nicht funktionieren, vielleicht aber dieser:

' Code in eimem allgemeinen Modul
Option Explicit
Public zahl As Integer
Sub zahleingeben()
zahl = InputBox("Zahl eingeben:     ")
End Sub
' Code in der Tabelle um A1 zu testen
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" And Target.Value > zahl Then MsgBox "Achtung!"
End Sub


Grüsse RS

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige