mehrere Auswahl im Spaltenbereich

Forumthread: mehrere Auswahl im Spaltenbereich

11.10.2003 13:11:54

Valentino

Hallo allerseits!

Es geht um das "wenn --> dann, sonst..."
Anbei der Code, der soweit funktioniert.
Sobald ich in Spalte A einen Wert entferne, wird in Spalte B eine leere Zelle
wiedergegeben.

Das Problem ist, sobald ich auf einmal mehr als einen Wert in Spalte A lösche, gibt es eine Fehlermeldung.

Kann mir jemand einen Tip geben, wie bei einer Mehrfachselection (Spalte A), keine Fehlermeldung mehr erscheint.

Im voraus Danke


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
If Target.Value <> "" Then
Target.Offset(0, 1).Value = Format(Date, "d.mmm") & "     " & Format(Time, "h.mm")
Else
Target.Offset(0, 1).ClearContents
End If
End Sub

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: mehrere Auswahl im Spaltenbereich

11.10.2003 14:52:17

Josef Ehrensberger
AW: mehrere Auswahl im Spaltenbereich

11.10.2003 15:28:30

WernerB.
Hat super funktioniert, Danke

12.10.2003 10:12:26

Valentino

AW: mehrere Auswahl im Spaltenbereich

11.10.2003 14:52:17

Josef Ehrensberger

Hallo Valentino,

probier mal


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
If Target.Count > 1 Then
For Each rng In Selection
If rng <> "" Then
rng.Offset(0, 1).Value = Format(Date, "d.mmm") & "     " & Format(Time, "h.mm")
Else
rng.Offset(0, 1).ClearContents
End If
Next
Else
If Target <> "" Then
Target.Offset(0, 1) = Format(Date, "d.mmm") & "     " & Format(Time, "h.mm")
Else
Target.Offset(0, 1).ClearContents
End If
End If
End Sub

Gruß Sepp

AW: mehrere Auswahl im Spaltenbereich

11.10.2003 15:28:30

WernerB.

Hallo Valentino,

was hältst Du hiervon:

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ta1 As String, Ta2 As String, Lo As String
If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub
If Target.Cells.Count = 1 Then
If Target.Value <> "" Then
Target.Offset(0, 1).Value = Format(Date, "d.mmm") & "     " & Format(Time, "h.mm")
Else
Target.Offset(0, 1).ClearContents
End If
Else
Ta1 = Target.Address(False, False)
Lo = Left(Ta1, InStr(Ta1, ":") - 1)
If Range(Lo).Value = "" Then
Ta2 = WorksheetFunction.Substitute(Ta1, "A", "B")
Range(Ta2).ClearContents
End If
End If
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).

Hat super funktioniert, Danke

12.10.2003 10:12:26

Valentino

Danke

Beliebteste Forumthreads (12 Monate)

mehrere Auswahl im Spaltenbereich

Forumthread: mehrere Auswahl im Spaltenbereich

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

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread