Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1340to1344
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
Inhaltsverzeichnis

VBA nur für eine einzelne (verbundene) Zelle

VBA nur für eine einzelne (verbundene) Zelle
10.12.2013 07:05:50
Holm
Guten Morgen,
ich habe folgenden Code im Tabellenblatt:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err
If InStr(Target.Value, ",") > 0 Then
Target.NumberFormat = "#,##0.0"
Else
Target.NumberFormat = "#,##0"
End If
Err:
Exit Sub
End Sub
Nun ist aber das Problem, dass ich diese Formatierung nur in einer einigsten Zelle (B30) möchte. Die B30 ist aber eine verbundene Zelle, geht von B30 bis H32.
Lässt sich dieser (Formatierungs)Code nur auf diese Zelle beschränken?
Danke im Voraus!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA nur für eine einzelne (verbundene) Zelle
10.12.2013 07:29:32
Matthias
Hallo
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B30")) Is Nothing Then
On Error GoTo Err
If InStr(Target.Value, ",") > 0 Then
Target.NumberFormat = "#,##0.0"
Else
Target.NumberFormat = "#,##0"
End If
Err:
Exit Sub
End If
End Sub
Gruß Matthias

AW: VBA nur für eine einzelne (verbundene) Zelle
10.12.2013 07:30:08
Hajo_Zi

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$30:$H$32" Or Target.Address = "$B$30" Then
If InStr(Target.Value, ",") > 0 Then
Target.NumberFormat = "#,##0.0"
Else
Target.NumberFormat = "#,##0"
End If
End If
End Sub

Anzeige

334 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige