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

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

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

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

Anzeige
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

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

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

Anzeige
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

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige