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

VBA

VBA
09.03.2004 15:17:49
sascha
Hallo Liebe Freunde
Habe folgendes Problem:
Mit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
Dim iRow As Integer
Dim sort As String
If Target.Column <> 4 Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
If IsEmpty(Target) Then
Target.Offset(0, 1).ClearContents
Exit Sub
End If
With Range("ip5400:iv5476")
var = Application.Match(Target.Value, .Columns(1), 0)
If Not IsError(var) Then
Target.Offset(0, 1).Value = .Cells(var, 2).Value
Target.Offset(0, 7).Value = .Cells(var, 3).Value
Target.Offset(0, 33).Value = .Cells(var, 4).Value * Target.Offset(0, 18).Value
Target.Offset(0, 34).Value = .Cells(var, 5).Value * Target.Offset(0, 18).Value
Target.Offset(0, 35).Value = .Cells(var, 6).Value * Target.Offset(0, 18).Value
Target.Offset(0, 36).Value = .Cells(var, 7).Value * Target.Offset(0, 18).Value
Else
MsgBox "!!! ERROR!!!"
End If
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub

Erreiche ich das bei Eingabe in Spalte D recht stehende Zellen gefühlt werden
Nun mein Problem
Wen ich aber Eingabe in D lösche dann bleiben aber die werte recht stehen (also sollten nach löschen von Eingabe in D auch alle werte die mit Eingabe in D eingetragen sind Verschwinden)
Danke in voraus
Gruß Sascha

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA
09.03.2004 17:10:03
Christoph
Hallo Sascha,
du musst einfach nur den Part, bei dem abgefragt wird, ob die Target-Zelle leer ist
um die entsprechenden Anweisungen erweitern:
also statt:
...
If IsEmpty(Target) Then
Target.Offset(0, 1).ClearContents
Exit Sub
End If
...
jetzt:
If IsEmpty(Target) Then
Target.Offset(0, 1).ClearContents
Target.Offset(0, 7).ClearContents
Target.Offset(0, 33).ClearContents
'...usw...
Exit Sub
End If
mit der Hoffnung, dir geholfen zu haben
Gruß
Christoph
AW: VBA
09.03.2004 19:55:51
sascha
Danke Christoph
Du hast geholfen
Gruß Sascha
Anzeige
Danke für die Rückmeldung (o.T.)
10.03.2004 06:08:54
Christoph

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige