Supportnet / Forum / Tabellenkalkulation

Hallo, ich brauch Eure Hilfe!! Ich hab folgenden Code: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$D$4" Or Target.Address = "$H$1" Then ActiveSheet.Range("D4").Select Selection.Copy Workbooks.Open FileName:="D:\Daten\" & Me.Range("H1").Value & ".xls" ActiveSheet.Range("D6").Select ActiveSheet.Paste Application.CutCopyMode = False End If End Sub Bei einer Artikelnummer in Zelle D4 öffnet der Code eine weitere Datei. Das Problem ist, wenn ich in der Zelle D4 die Artikelnummer lösche bekomme ich ein Laufzeitfehler. Was muss ich ändern, damit ich die Artikelnummer löschen kann ohne da ich eine Fehlermeldung bekomme??? Gruß Elhamplo

Moin Elhamplo,

füge folgende Zeile nach

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 

ein:

If Range("D4") = "" Then Exit Sub

MfG

JöKe

Hallo
füge den Code

If Target.Value = "" Then Exit Sub

hinter die erste IF-Zeile ein.
Weitere Möglichkeit:

On Error GoTo Ende

an den Anfang und

Ende:

vor "End Sub"

Gruß piano

_{Es wäre nett, wenn Du ein Feedback abgeben könntest,}
<sup>ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -</sup>

Hmm, die einfachste und schnellste, wenn nichtgleich sauberste Lösung ist, einfach vor dem entsprechenden Codeabschnitt folgende Anweisung zu sezten:

On Local Error Resume Next

Damit lassen sich die Fehlermeldungen umgehen und das Programm läuft normal weiter.

Hallo Zusammen,

Vielen, Vielen Dank für Eure Hilfe!!!!

Ich muss sagen es funst alles. Super!!!!

Ich dank Euch für Eure Hilfe!!!!

Gruß

Elhamplo

• Zeichenkettenaddition bei VBA?
• VBA Code eingeben/ wie ?
• VBA-Editor öffnen und schließen
• Formel per VBA in Zelle schreiben