Das Archiv des Excel-Forums

mehrere Auswahl im Spaltenbereich

Bild

Betrifft: mehrere Auswahl im Spaltenbereich
von: Valentino

Geschrieben am: 11.10.2003 13:11:54

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

Bild


Betrifft: AW: mehrere Auswahl im Spaltenbereich
von: Josef Ehrensberger
Geschrieben am: 11.10.2003 14:52:17

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


Bild


Betrifft: AW: mehrere Auswahl im Spaltenbereich
von: WernerB.
Geschrieben am: 11.10.2003 15:28:30

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).


Bild


Betrifft: Hat super funktioniert, Danke
von: Valentino
Geschrieben am: 12.10.2003 10:12:26

Danke


 Bild

Excel-Beispiele zum Thema " mehrere Auswahl im Spaltenbereich"

Suche über mehrere Tabellen download Mehrere Schaltflächen für ein Makro download
Suchbegriff über mehrere Tabellenblätter suchen. download Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche download
Druck aus mehreren Tabellenblättern auf eine Druckseite download AutoFilter über mehrere Arbeitsblätter setzen download
Daten von mehreren Blättern auf ein Druckblatt download Prozentuale Erhöhung über mehrere Arbeitsblätter hinweg download
Werte in mehreren Spalten sortieren download Textreihe auf mehrere Spalten mit fester Seitenlänge verteilen download
Den selben Bereichsnamen in mehreren Tabellenblättern download Tabelle nach mehreren Kriterien summieren download
SVERWEIS-Formel über mehrere Fundstellen download Wert aus A1 in mehrere Zellen übernehmen download
Mehrere Arbeitsmappen per Outlook an einen Empfänger download In mehrere Spalten doppelte Inhalte entfernen download
Programmsteuerung für mehrere aufrufende UserForms download Mehrere Tabellenblattbereich unabhängig voneinander sortieren download
Redimensionierung eines Arrays über mehrere Dimensionen download SUMMEWENN-Funktion über mehrere Tabellenblätter download
Aktivieren mehrerer CheckBoxes unterbinden download Aufteilen einer Tabelle auf mehrere Arbeitsblätter download
SummeWenn-Summierung über mehrere Blätter download Auswahl von Zellen in mehreren Zeilen verhinden download
Wert von einer Zelle zur anderen in mehreren Tabellen übernehmen download Benannte Bereich aus mehreren Arbeitsmappen importieren download
Variablen auf mehrere Arten in Funktionen integrieren download Filtern über VBA nach mehreren Kriterien download
Kosten nach mehreren Kriterien erfassen download Wechseln zwischen Arbeitsblättern anhand mehrerer Schaltflächen download
Zellinhalt suchen und Zelle auswählen download Mehrfachauswahl aus ListBox auslesen download
Die Zelle mit dem höchsten Wert Auswählen download Mehrbereichsauswahl auf eine Seite drucken. download
Spalten einer Mehrbereichsauswahl ausblenden. download Tabellenblatt auswählen download
Mehrfachauswahl im Hoch- und Querformat drucken download Laufwerk über InputBox auswählen download
Bereiche bei Mehrfachauswahl prüfen download UserForm in Abhängigkeit einer RefEdit-Auswahl anzeigen download
Auswahl eines Zellbereiches verhindern download Neue UserForm bedingt nach ComboBox-Auswahl aufrufen download
Nach Ortsauswahl neue UserForm mit Ortsteilauswahl download Die Ereignisse Zellauswahl, Eingabe und Doppelklick download
Werte nach zwei Kriterien auswählen download Artikel aus Auswahltextbox in Sammeltextbox verschieben download
Werteübernahme gem. Auswahl in ComboBox - ohne VBA download Mehrfachauswahl in ListBox auslesen download
Blätter in ComboBox-Feld einlesen und auswählen download Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen download
Laufwerke im Dialog zur Auswahl anzeigen lassen download In einer ComboBox selektiertes Arbeitsblatt auswählen download
Dialoggesteuerte Druckmehrblattauswahl download Zellauswahl auf den ausgewählten Bereich beschränken download
Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download Datensätze in UserForm auswählen und im Blatt löschen download
Über InputBoxes Zeile und Spalte auswählen und Ergebnis nennen download Aus einem Kalender-Steuerelement Datum und Zeit auswählen download
Schriftgröße der aktiven Zelle bei Auswahl ändern download Mehrfachauswahl aus UserForm-ListBoxes in Tabelle eintragen download
Verzeichnisbaum aufrufen und Verzeichnis auswählen download Letztes Zeichen der Werte einer Zellauswahl hoch-/tiefstellen download
Kontextmenü zur Auswahl von Arbeitsblättern aufrufen download Datei auswählen und ohne Rückfrage löschen download
Mehrfachauswahl über Schaltfläche steuern download ComboBox für Monatsblattauswahl in Menüleiste einfügen download
Tabellenblatt durch Zell-Doppelklick auswählen download Gültigkeitsauswahl über VBA auslesen download
Bei Dialoganzeige Blattauswahl wechseln download ListBox-Auswahl in Labels übernehmen download
Datei auswählen, öffnen und Formelsuchdialog anzeigen download Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download
Adresse nach Gültigkeitsfeldauswahl eintragen download Aus Dialog Verzeichnis auswählen, dann neuen Ordner erstellen download
Vorlage auswählen und Arbeitsmappe öffnen download In Abhängigkeit zur RefEdit-Auswahl UserForm aufrufen download
Farbauswahldialog generieren, aufrufen und löschen download TextBox in Abhängigkeit einer ComboBox-Auswahl füllen download