Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1292to1296
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

Worksheets_Change -> Fehler 13

Worksheets_Change -> Fehler 13
04.01.2013 19:07:22
ing.grohn
Hallo Forum,
frohes neues Jahr und viel Gesundheit!!
ich hab ein kleines Problem:
in einer Tabelle wird über WorkSheets_Change in Spalte C und d eine Formel eingetragen, wenn in _ Spalte B ein Wert eingetragen ist und Spalte C leer ist:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Value  "" And Target.Offset(0, 1).Value = "" Then
Application.EnableEvents = False
Target.Offset(0, 1).Formula = "=Strecke(RC[-1])"
Target.Offset(0, 2).Formula = "=IF(RC[-2]"""",streckekm(RC[-2]),"""")"
Application.EnableEvents = True
End If
End If
End Sub

das funktioniert wies soll
Aber!
wenn ich in Spalte B mehre Zellen markiere und dann entferne (Del-Taste) läuft die Zeile "If Target.Value "" And Target.Offset(0, 1).Value = "" Then" in die Fehlermeldung 13 (Typen nicht verträglich).
Wie kann ich das abstellen?
vielen Dank für Eure Hilfe
Mit freundlichen Grüßen
Albrecht

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

Betreff
Datum
Anwender
Anzeige
AW: Worksheets_Change -> Fehler 13
04.01.2013 19:15:22
ransi
Hallo
"Aus der Hüfte":
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Zelle As Range
    Dim R As Range
    On Error Resume Next
    Set R = Intersect(Target, Columns(2)).Cells
    If Not R Is Nothing Then
        For Each Zelle In R
            If Zelle.Value <> "" And Zelle.Offset(0, 1).Value = "" Then
                Application.EnableEvents = False
                Zelle.Offset(0, 1).Formula = "=Strecke(RC[-1])"
                Zelle.Offset(0, 2).Formula = "=IF(RC[-2]<>"""",streckekm(RC[-2]),"""")"
                Application.EnableEvents = True
            End If
        Next
    End If
End Sub


Teste mal.
ransi

Anzeige
AW: Worksheets_Change -> Fehler 13
04.01.2013 19:49:47
ing.grohn
Hallo ransi,
läuft wie geschmiert!
Vielen Dank
Albrecht

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige