Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
272to276
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
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA- Kleines Problem mit Zahlenbegrenzungen

VBA- Kleines Problem mit Zahlenbegrenzungen
28.06.2003 16:09:16
Thomas
Hallo,

momentan versuche ich mir VBA selbst beizubringen. Mit Hilfe der Bedingten Formatierung in VBA möchte ich eine Zahlenbegrenzung vornehmen.

Case "4"
Target.Interior.ColorIndex = 7

Anstelle der 4 sollen die Zahlen im Bereich von 3 bis 7 akzeptiert werden.

Ist das Problem mit einem logischen Operator zu lösen, oder geht Das noch einfacher?

Gruß
Thomas

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

Betreff
Datum
Anwender
Anzeige
AW: VBA- Kleines Problem mit Zahlenbegrenzungen
28.06.2003 16:29:38
PeterW
Hallo Thomas,

liegt die Zahl als Zahl oder als Text vor? Im ersten Fall:

Case 3 to 7

Gruß
Peter


Es geht, aber mit einem Problem!
28.06.2003 16:50:48
Thomas
Hallo,

damit geht es, aber es entsteht folgendes Problem:

Userbild



Wenn ich die Spalte von oben nach unten von 0 bis 10 durchnummeriere, wird die Zelle ab 3 bis unendlich markiert. Wenn dazwischen eine Zelle frei bleibt, ist das nicht der Fall.

Gruß
Thomas


AW: Es geht, aber mit einem Problem!
28.06.2003 16:54:50
PeterW
Hallo Thomas,

dann solltest du mal den gesamten Code und eine genaue Problembeschreibung posten.

Gruß
Peter


Anzeige
AW: Es geht, aber mit einem Problem!
28.06.2003 17:03:13
Thomas
Hallo,

hier der Quellcode:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich As Range
Dim Z
Set Bereich = Range("A1:B100")
If InStr(Target.Address, ":") = 0 Then
If Intersect(Target, Bereich) Is Nothing Then Exit Sub
Target.Borders(xlDiagonalDown).LineStyle = xlNone
Target.Borders(xlDiagonalUp).LineStyle = xlNone
Select Case Target.Value
Case "1"
With Target.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThick
End With
With Target.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThick
End With
Target.Font.ColorIndex = 0
Case "2"
Target.Font.ColorIndex = 2
Case 3 To 7
Target.Interior.ColorIndex = 7
Case Else
Target.Font.ColorIndex = 0
End Select
Else
For Each Z In Selection
If Intersect(Z, Bereich) Is Nothing Then
Else
Z.Borders(xlDiagonalDown).LineStyle = xlNone
Z.Borders(xlDiagonalUp).LineStyle = xlNone
Select Case Z.Value
Case "1"
With Z
With .Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThick
End With
With .Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThick
End With
End With
Z.Font.ColorIndex = 0
Case "2"
Z.Font.ColorIndex = 2
Case "3"
Z.Font.ColorIndex = 3
Case Else
Z.Font.ColorIndex = 0
End Select
End If
Next Z
End If
End Sub


Gruß
Thomas


Anzeige
AW: Es geht, aber mit einem Problem!
28.06.2003 17:27:26
PeterW
Hallo Thomas,

habe deinen Code laufen lassen und kann dein beschriebenes Problem nicht nachvollziehen. Was wird bis unten markiert? Dein Code markiert doch überhaupt nichts.

Gruß
Peter


Super! Jetzt geht es! Vielen Dank!
28.06.2003 18:00:17
Thomas
Es fehlte nur noch eine zweite Bedingung mit "Interior". Dann geht´s!

Vielen Dank!

Gruß
Thomas


AW: Es geht, aber mit einem Problem!
28.06.2003 17:51:12
Thomas
Hallo,

mit markieren meine ich nur den Befehl "Interior".

Mir ist nur nicht klar, warum VBA auch andere Zahleneingaben außer der im Code eingegebenen Begrenzung von 3 bis 7 farbig einzeichnet.

Userbild


Gruß
Thomas


Anzeige
AW: Es geht, aber mit einem Problem!
28.06.2003 17:44:43
Thomas
Hallo,

mit markieren meine ich nur den Befehl "Interior".

Mir ist nur nicht klar, warum VBA auch andere Zahleneingaben außer der im Code eingegebenen Begrenzung von 3 bis 7 farbig einzeichnet.

Userbild


Gruß
Thomas


AW: Es geht, aber mit einem Problem!
28.06.2003 18:07:40
PeterW
Hallo Thomas,

ergänze mal Case Else um Target.Interior.Colorindex = 0.

Gruß
Peter


AW: VBA- Kleines Problem mit Zahlenbegrenzungen
28.06.2003 16:18:46
Hans W. Herber
Hallo Thomas,

meinst Du wirklich die bedingte Formatierung? Angebracht wäre hier das Feature Gültigkeit. Alternativ dazu eine Ereignisprogrammierung zum Change-Ereignis.

gruss hans


Anzeige
AW: VBA- Kleines Problem mit Zahlenbegrenzungen
28.06.2003 16:35:41
Thomas
Hallo,

Genau! Ich möchte mit Hilfe einer in VBA geschriebenen "Bedingte Formatierung" den Zellenbereich so verändern, dass nur im Zahlenbereich von 3 bis 7 die Zelle markiert wird.

Nur die Schreibweise nach Case ist mir nicht klar!

Gruß
Thomas


317 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Anzeige
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 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
3
5
11
5
3
1
11
21
2
7
4
3
3
2
1
8
5
4
21
3
5
2
2
6
4