Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
236to240
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
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Alle Zellen der Spalte auf 3 Zeichen kürzen.

Alle Zellen der Spalte auf 3 Zeichen kürzen.
27.03.2003 09:19:02
hans-jörg
Hallo,
Ist es möglich per VBA alle Werte in den Zellen der Spalte A
auf 3 Stellen zu kürzen ohne For Each Scleife.

für Info Vielen Dank
Hans-Jörg

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

Betreff
Datum
Anwender
Anzeige
Re: Alle Zellen der Spalte auf 3 Zeichen kürzen.
27.03.2003 09:45:32
Felix

Hallo Hans-Jörg,
Schreibe diesen Code ins Modul eines Tabellenblatt:

Alle Einträge in Spalte "C" ab Zeile "2" werden auf 3 Zeichen reduziert.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 1 Then
Target.Value = Left(Target.Value, 3)
End If
End Sub

Gruß
Fellix

Re: mit abfrage?
27.03.2003 10:03:27
Felix

Hallo Hans-Jörg,

habe noch ein Beispiel mit Abfrage erstellt. So kann der Anwender vorher noch wählen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Row > 1 Then
If Len(Target.Value) > 3 Then
If MsgBox("Möchten Sie die Eingabe auf 3 Zeichen begrenzen?" & Chr(13) & _
"Die Eingabe würde wie folgt lauten: " & Left(Target.Value, 3), _
vbQuestion + vbYesNo, "Z E I C H E N A N Z A H L !!") = vbYes Then
Target.Value = Left(Target.Value, 3)
End If
End If
End If
End Sub

Gruß
Felix

Anzeige
Re: Super vielen Dank Felix
27.03.2003 15:47:31
Hans-Jörg

.

Re: nochmal vielen Dank Felix
09.04.2003 05:01:50
Hans-Jörg

Halo Felix,
hoffe du erhäst meine verspätete Antwort.
Werde diese Abfrage mit einbauen
Vielen Dank
Hans-Jörg

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige