Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
464to468
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
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

das makro geht nicht

das makro geht nicht
10.08.2004 21:56:35
dieter-j
Hallo Forum,
ich habe eher null ahnung von makro´s.
dieses hier hatte ich bisher am arbeitsplatzregister unter "code anzeigen"
ich würde es lieber unter "makro" haben (beim kopieren des blattes wird es nicht mitkopiert). Schreibe ich es unter als "e_einstzen" in "makro" , klappt es aber nicht.
Schaut Ihr euch das bitte mal an?
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "H14" And [H14] = "x" Then
[d27:q27] = "e"
ElseIf Target.Address(0, 0) = "H14" And [H14] <> "x" Then
[d27:q27].ClearContents
End If
If Target.Address(0, 0) = "I14" And [i14] = "x" Then
[d32:q32] = "e"
ElseIf Target.Address(0, 0) = "I14" And [i14] <> "x" Then
[d32:q32].ClearContents
End If
End Sub

-----------------------
Sub e_einsetzen()

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "H14" And [H14] = "x" Then
[d27:q27] = "e"
ElseIf Target.Address(0, 0) = "H14" And [H14] <> "x" Then
[d27:q27].ClearContents
End If
If Target.Address(0, 0) = "I14" And [i14] = "x" Then
[d32:q32] = "e"
ElseIf Target.Address(0, 0) = "I14" And [i14] <> "x" Then
[d32:q32].ClearContents
End If
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: das makro geht nicht
10.08.2004 22:14:04
Nepumuk
Hallo Dieter,
kein Wunder, das hat ja gar keine Beine. :-)
Schreib es unter "Diese Arbeitsmappe" wie folgt:


Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As ObjectByVal Target As Range)
    If Sh.Name = "Tabelle1" Then
        If Target.Address(0, 0) = "H14" And [H14] = "x" Then
            [d27:q27] = "e"
        ElseIf Target.Address(0, 0) = "H14" And [H14] <> "x" Then
            [d27:q27].ClearContents
        End If
        If Target.Address(0, 0) = "I14" And [i14] = "x" Then
            [d32:q32] = "e"
        ElseIf Target.Address(0, 0) = "I14" And [i14] <> "x" Then
            [d32:q32].ClearContents
        End If
    End If
End Sub


Den Namen der Tabelle musst du natürlich noch anpassen.
Gruß
Nepumuk
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige