Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
340to344
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
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Meldung bei Überschreitung in VBA

Meldung bei Überschreitung in VBA
25.11.2003 09:35:28
Andreas
Hallo miteinander,
ich habe ein kleines Problem, und zwar will ich eine Meldung erzwingen sobald der Wert in Zelle Q9 85000 überschreitet. Die Zelle ist ausgeblendet und wird von einer Berechnung ausgefüllt.

Mein Versuch sieht so aus,


Private Sub CommandButton1_Click()
ActiveSheet.Unprotect ("sls")
Range("d9") = TextBox1
Range("e9") = TextBox2
Range("f9") = TextBox3
Range("h9") = TextBox4
ActiveSheet.Protect ("sls")
Unload NeuesTeil
If Range("q3") > "85000" Then
meldung = "Das Teil hat eine grosse Grundfläche, bitte mit Avor klären!"
MsgBox meldung
End If
End Sub


Wo liegt der Fehler??

Gruss Andreas

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Meldung bei Überschreitung in VBA
25.11.2003 09:38:50
Michael Scheffler
Hi,

erstens würde ich in der Programmierung mit Cells() statt mit Range arbeiten. Und dann nicht "85000", sondern:

If Int(Cells(17,3)) > 85000 Then

Gruß

Micha
AW: Meldung bei Überschreitung in VBA
25.11.2003 09:50:30
Andreas
Ich bekomme aber immer noch den Fehler bei der Meldung, liegt nich an der Art der Selection der Zelle.

Gruss Andreas
AW: Meldung bei Überschreitung in VBA
25.11.2003 10:02:53
Michael Scheffler
Hi,

was für ein Fehler tritt denn auf. Bei mir klappt sogar Deine Variante.

Gruß

Micha
AW: Meldung bei Überschreitung in VBA
25.11.2003 10:05:53
Andreas
VBA bringt bei der Meldung den Fehler Variable nicht definiert, keine Ahnung warum.
AW: Meldung bei Überschreitung in VBA
25.11.2003 10:25:00
Bernhard Ringhofer
Andreas,

du versuchst mit Textstrings zu rechnen, das kann nicht funktionieren!

Probier folgenden Code:


Private Sub CommandButton1_Click()
ActiveSheet.Unprotect ("sls")
[d9] = TextBox1.Value
[e9] = TextBox2.Value
[f9] = TextBox3.Value
[h9] = TextBox4.Value
ActiveSheet.Protect ("sls")
Unload NeuesTeil
If [g9] > 85000 Then
meldung = "Das Teil hat eine grosse Grundfläche, bitte mit Avor klären!"
MsgBox meldung
End If
End Sub


Gruss
Bernhard
Anzeige
AW: Meldung bei Überschreitung in VBA
25.11.2003 10:34:34
Andreas
Hallo Bernhard,

das Problem liegt nicht bei der Übertragung der Daten aus den Textboxen sondern bei der Meldung, dort bekomme ich den Fehler beim Kompilieren "Variable nicht definiert".

Gruss Andreas
AW: Meldung bei Überschreitung in VBA
25.11.2003 10:47:08
Michael Scheffler
Hallo Andreas,

steht bei Dir irgendwo "Option Explicit"?

Gruß

Micha
AW: Meldung bei Überschreitung in VBA
25.11.2003 11:03:56
Andreas
Hi Micha,

kleiner Fehler grosse Wirkung, habe ich tatsächlich übersehen.

Danke für die Hilfe
Gruss Andreas
AW: Meldung bei Überschreitung in VBA
25.11.2003 11:10:12
Michael Scheffler
Hallo Andreas,

ich würde immer mit "Option Explicit" programmieren.

Gruß

Micha
AW: Meldung bei Überschreitung in VBA
25.11.2003 11:56:33
Andreas
Hi Micha,

das würde ich auch in diesem Fall wenn ich eine Lösung gefunden habe, aber ohne "Option Explicit" funktioniert es und mit nicht.

Wie sieht denn die richtige Lösung aus?

Gruss Andreas
Anzeige
AW: Meldung bei Überschreitung in VBA
25.11.2003 12:41:56
Michael Scheffler
Hi,

dann musst Du alle Variablen dimensionieren, die Du verwendest:

Dim intIrgendWas As Integer
...
Dim doubIrgendWas As Double

Usw. usf.

Gruß

Micha

300 Forumthreads zu ähnlichen Themen

Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
Anzeige
Dynamische Wertänderung in VBA
Timo

Hallo,
ich habe ein kleines Problem und möchte vorab sagen, dass ich ein wirklicher VBA Laie bin. Ich habe folgendes Makro aufgenommen (nicht selbst geschrieben, da ich das nicht kann):
Sub updatechartloanvolumetrend()
If Range("C10") = "19981998" Then
ActiveSheet.ChartObjects("...
05.09.2008 09:38:00
Thread-ID: 1007590
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Anzeige
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
Code für Groß- und Kleinschreibung VBA
Urmila

Hallo,
ich habe folgenden Code (Teil vom Code)
If Cells(iRow, 1).Value = "x" Then
Hierbei erkennt Excel nur das kleine x und nicht das große X. Wie kann man das umgehen, dass Groß- und Kleinschreibung nciht geachtet werden sollen bzw beachten werden sollen?
LG
Urmila
09.10.2008 14:16:51
Thread-ID: 1015349
3 Beiträge
Mit VBA ein anderes Makro ändern
Markus

Hallo zusammen,
besteht die Möglichkeit, dass man mittels Makros ein anderes Makro bzw. den Code für Worksheet_Activate ändern kann?
Problem 1
Sub Worksheet_Activate() 'ScrollArea = "C3: Bf32" ScrollArea = "" End Sub
Es soll danach wie folgt aussehen (Änderung in Zeile 1 und...
12.10.2008 14:24:49
Thread-ID: 1015855
7 Beiträge
zählenwenn in VBA-Array
David

Hallo zusammen.
folgendes Makro:
Sub finden() Dim P(12), C(9) P(1) = Application.WorksheetFunction.Choose(Int(Rnd() * 3) + 1, "A1", "A2", "A3") ... (das packe ich später noch in eine Schleife) P(12) = Application.WorksheetFunction.Choose(Int(Rnd() * 3) + 1, "B1", "B2", "B3") C(1) = Ap...
14.10.2008 09:14:00
Thread-ID: 1016232
8 Beiträge
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge

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
12
2
2
4
5
8
2
6
7
2
2
2
2
3
3
15
6
4
4
4
3
4
2
4
7