Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Alle Zellen der Spalte auf 3 Zeichen kürzen.

Forumthread: 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

Anzeige

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

Anzeige
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

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige