Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
320to324
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Auswahl im Spaltenbereich

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
Anzeige
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
Anzeige
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).
Anzeige
Hat super funktioniert, Danke
12.10.2003 10:12:26
Valentino
Danke

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige