Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
448to452
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
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Textbox - bei Verlassen Inhalt prüfen

VBA-Textbox - bei Verlassen Inhalt prüfen
08.07.2004 09:53:09
der alex
Hallo!
Folgendes Problem:
Ich habe eine Textbox auf einer UserForm in der händisch ein Dateipfand eingetragen werden soll. Um die Lauffähigkeit des Makros zu gewährleisten darf am Ende der Pfadeingabe kein "\" stehen. Wie kann ich das bei deaktivieren dieser Textbox überprüfungen und für den Falle beheben?
Gruß&Dank
der alex

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Textbox - bei Verlassen Inhalt prüfen
08.07.2004 09:59:02
Ramses
Hallo
Das sollte gehen

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim tmpStr As String
tmpStr = Me.TextBox1.Value
Do Until Right(tmpStr, 1) <> "\"
If Right(tmpStr, 1) = "\" Then
tmpStr = Left(tmpStr, Len(tmpStr) - 1)
End If
Loop
Me.TextBox1 = tmpStr
End Sub

Gruss Rainer
@Offtopic Rainer
08.07.2004 10:10:07
ExceL
Hi
und in welchem Land biste heute
guinnes oder kängeruh oder.....
:-)
Gruß Christian
(chris-ka)
Balkonien...;-) oT
08.07.2004 10:20:07
Boris
:-) ok ab und zu bin ich in LaGarta__ot
08.07.2004 10:25:15
ExceL
CH :-) Ich hab Urlaub :-)) o.T.
08.07.2004 10:20:46
Ramses
...
Was ist das ->Urlaub :-)
08.07.2004 10:24:15
ExceL
hi
habe schon mal davon gehört
ne spass bei seite dann wünsche ich dir einen schönen urlaub
und versetze deinen PC ab und zu in den Pausemodus.
Gruß
Christian
Anzeige
Schlechtwetterbeschäftigung :-(
08.07.2004 10:26:48
Ramses
Hallo
heute morgen um 8:00 strahlend blauer Himmel, und nun regnet es.
Der "Pausemodus" ist direkt proportional abhängig von der solaren Aktivität :-))
Gruss Rainer
AW: Schlechtwetterbeschäftigung :-(
08.07.2004 10:29:06
Rolf
Wo in der Schweiz bist du denn, wir haben immer noch blauen Himmel...
Rolf
AW: Schlechtwetterbeschäftigung :-(
08.07.2004 10:33:09
Ramses
Hallo Rolf
Zentralschweiz
und du ?
Gruss Rainer
AW: Schlechtwetterbeschäftigung :-(
08.07.2004 10:35:09
Rolf
Hi,
Aarburg im Aargau...
Momntan...
Rolf
TestCode
08.07.2004 11:38:03
Boris
Hi Rainer,
Option Explicit

Sub an_oder_aus()
Dim bolSunlight As Boolean
Dim bolPCAnAus As Boolean
Dim rngLand As Range
Set rngLand = Range("Schweiz")
bolSunlight = rngLand.SpecialCells("Zentralschweiz").Sunlight = On
bolPCAnAus = Not bolSunlight
MsgBox IIf(bolPCAnAus, "Ran an die Kiste", "Finger weg von der Kiste")
End Sub

Läuft aber erst ab Version xl2040...;-)
Grüße Boris
Anzeige
AW: *bg*
08.07.2004 12:22:41
Rolf

304 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