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

Wenn Makro = falsch; "" ; Makro

Forumthread: Wenn Makro = falsch; "" ; Makro

Wenn Makro = falsch; "" ; Makro
29.01.2004 15:54:42
Markus H.
Moin,
ich habe dieses Makro auf ein Tabellenblatt gelegt!


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Select Case Target.Value
Case "m"
box (1)
Case "M"
box (1)
Case "e"
box (2)
Case "E"
box (2)
Case "z"
box (3)
Case "Z"
box (3)
Case "x"
box (4)
Case "x"
box (4)
End Select
End If
End Sub


nun ist es aber so wenn ich in spalte a mehrere zellen markiere und auf entf drücke gibt es eine fehlermeldung.
auch mit
on Error resum next
ist das problem nicht gelöst, weil das nächste makro nen ausdruck auslöst..
wie kann ich das am cleversten umgehen?
MfG
Markus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Wenn Makro = falsch; "" ; Makro
29.01.2004 15:57:53
K.Rola
Hallo.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.count > 1 then exit sub
If Target.Column = 1 Then
Select Case Target.Value
Case "m"
box (1)
Case "M"
box (1)
Case "e"
box (2)
Case "E"
box (2)
Case "z"
box (3)
Case "Z"
box (3)
Case "x"
box (4)
Case "x"
box (4)
End Select
End If
End Sub

Gruß K.Rola
Anzeige
EEEEDELST! Danke.. :-) OT
29.01.2004 15:59:55
Markus H.
kleine Codekürzung
29.01.2004 16:12:49
xXx
Hallo,
so ist der Code übersichtlicher:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.count > 1 then exit sub
If Target.Column = 1 Then
Select Case UCase(Target.Value)
Case "M"
box (1)
Case "E"
box (2)
Case "Z"
box (3)
Case "X"
box (4)
End Select
End If
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de
Anzeige
ui.. thx a lot! :-) OT
29.01.2004 16:17:39
Markus H.
danke schö
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
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