Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Die ersten fünf Ziffern aus aktiver Zelle

Forumthread: Die ersten fünf Ziffern aus aktiver Zelle

Die ersten fünf Ziffern aus aktiver Zelle
05.08.2003 11:01:40
Jürgen K.
Hallo Excel -Experten,
ich möchte per VBA immer die ersten fünf Ziffern der gerade aktiven Zelle
als Variable festlegen, wie bekomme ich das hin?
Gruß und besten Dank im voraus, Jürgen
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Die ersten fünf Ziffern aus aktiver Zelle
05.08.2003 11:12:06
Andi_H
hi jürgen,

Sub var()
x = Left(activecell, 5)
MsgBox x
End Sub

gruß andi

AW: Die ersten fünf Ziffern aus aktiver Zelle
05.08.2003 11:21:42
Jürgen K.
Hi Andi,
wie (fast) immer viel einfacher als ich dachte.
Also, vielen Dank für Deine Hilfe.
Gruß, Jürgen

AW: Die ersten fünf Ziffern aus aktiver Zelle
05.08.2003 11:12:21
Mike E.
Hallo Jürgen,

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim DeineZahl As Long
On Error GoTo exitsub
DeineZahl = Left(ActiveCell, 5)
Cells(2, 1) = DeineZahl
exitsub:
Exit Sub
End Sub

Gruß
Mike

Anzeige
AW: Die ersten fünf Ziffern aus aktiver Zelle
05.08.2003 11:20:12
Jürgen K.
Hi Mike,
Danke für den Tip!
Gruß, Jürgen

AW: Die ersten fünf Ziffern aus aktiver Zelle
05.08.2003 11:12:26
Frederik Fuhrmann
Hallo Jürgen!
du kannst unter VBA wie in einer Formel schreiben:
var1 = Left(Range("a1"), 5)
Gruß
F.

AW: Die ersten fünf Ziffern aus aktiver Zelle
05.08.2003 11:19:17
Jürgen K.
Hi Frederik
vielen Dank auch für Deine Hilfe!
Gruß, Jürgen

Anzeige
AW: Die ersten fünf Ziffern aus aktiver Zelle
05.08.2003 11:12:49
heinerv
Hallo Jürgen
Ein kleines Beispiel für VBA
füge es in "Diese Arbeitsmappe" ein:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim ErsteFünf As Long
ErsteFünf = Left(ActiveCell, 5)
MsgBox ErsteFünf
End Sub

Gruß
heinerv

Anzeige
AW: Die ersten fünf Ziffern aus aktiver Zelle
05.08.2003 11:18:27
Jürgen K.
Hallo Heiner,
vielen Dank für Deinen Tip!
Gruß, Jürgen

AW: Die ersten fünf Ziffern aus aktiver Zelle
05.08.2003 11:14:38
ICN
Dim var as string
var = Left(ActiveCell, 5)

AW: Die ersten fünf Ziffern aus aktiver Zelle
05.08.2003 11:17:25
Jürgen K.
Hi ICN,
vielen Dank für Deine Hilfe!
Ich werde das gleich mal ausprobieren.
Gruß, Jürgen

Anzeige
;

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