Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
660to664
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
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mehrere Stringabfragen Computer hängt sich auf

Mehrere Stringabfragen Computer hängt sich auf
06.09.2005 14:33:43
Thomas
Hallo
Bei mehreren STringabfragen hängt sich der Computer auf
Bei der ersten Abfrage mit c3 schreibt der Rechner den abgeschnittenen Wert zurück in die zelle, wenn man das schema wiederholt hängt sich der Computer auf
Warum?
c3 = Left(Range("C3"), 18)
Range("C3") = c3
c4 = Left(Range("C4"), 18)
Range("C4") = c4

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Stringabfragen Computer hängt sich auf
06.09.2005 14:57:24
ingoG
Hallo Thomas.
handelt es sich um code in einer ereignisgesteuerten Subroutine Worksheet_Change()?
dann würdest Du mit jeder änderung die routine erneut aufrufen...
ansonsten?
Gruß Ingo
PS eine Rückmeldung wäre nett...
AW: Mehrere Stringabfragen Computer hängt sich auf
06.09.2005 15:02:19
Tom
Ja ich rufe das über Worksheet_Change(ByVal Target As Range) auf
Aber wie soll ich denn sonst immer die Eingabe überprüfen
Ich soll ein Programm schreiben dass bestimmte Zellen verschieden lang abschneidet
bei einer zelle z.B 40 zeichen bei einer anderen wieder 18 usw....
Vielleicht kannst du mir helfen
PS.: Finde es toll dass du mir schon soviele Tipps gegeben hast, kenn mich schon a bissi besser aus in vba
Anzeige
AW: Mehrere Stringabfragen Computer hängt sich auf
06.09.2005 15:08:23
Hugo
Hallo,
Application.EnableEvents = False
...Deine Anweisungen
Application.EnableEvents = True
Hugo
AW: Mehrere Stringabfragen Computer hängt sich auf
06.09.2005 15:39:49
ingoG
Hallo Thomas,
versuchs mal so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [c3], [c4]) Is Nothing Then Exit Sub
Application.EnableEvents = False
[c3] = Left([c3], 18)
[c4] = Left([c4], 18)
Application.EnableEvents = True
End Sub

Gruß Ingo
PS eine Rückmeldung wäre nett...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige