Textfeld öffnen bei Klick auf Zelle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngUnion As Range, rngUBereich As Range ' Abfangen mehr als eine Zelle If Target.Count > 1 Then Exit Sub Unload UserForm1 ' nur für einen bestimmten Bereich. Set rngUBereich = Range("A1:A20") ' Oder auch "A1:A20,C1:C20" oder "A1:A100" ... Set rngUnion = Application.Union(Range(Target.Address), rngUBereich) If rngUnion.Address = rngUBereich.Address Then strText = Target.Offset(0, 3).Text UserForm1.Show vbModeless End If End Sub

Hallo Chris,
und das ist dann der Punkt wo man (du) sich mal näher mit VBA beschäftigen sollte, denn auch dafür gibt es ein Worksheet Ereignis das es zu nutzen gilt ;-)
Das in das Codefenster der entsprechenden Tabelle und den alten Code raus.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Wenn mehr als eine Zelle angeklickt wurde dann nichts tun.
If Target.Count > 1 Then Exit Sub
' Datum eintragen nur bei Doppleklick in Spalte A (also Column = 1) zulassen.
If Target.Column > 1 Then Exit Sub
Target.Offset(0, 1) = Date
' Man kann das Format wie es in die Zelle geschrieben werden soll auch schon hier bestimmen,
' z.B so:
' Target.Offset(1, 0) = Format(Date, "dd.mmm.yyyy")
' Oder einfach die Spalte mit dem Datum in EXCEL über ZELLEN formatieren so gestalten wie man
' das Datum haben möchte.
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !

Hallo Heiko,
ich muss dir absolut Recht geben und muss mich für deine Gedult bedanken. Ich muss mich wirklich intensiver mit VBA auseinandersetzen da ich hier wirklich die einfachsten Sachen nicht selber machen kann. Leider benötige ich die funktionierende Tabelle ziemlich dringend und kann daher nicht erst in Bücher oder ähnliches schauen. Daher bin ich wirklich extrem Dankbar das es dieses super Forum gibt.
Ansich ist es ja schon so wie es sein soll. Ich wei0 wie ich die Ausgabezelle bestimmen kann und versuche diesen Code mit den anderen, die du mir gegeben hattest zu kombinieren. Leider schaffe ich es nicht, die Spalte weiter zu definieren. Ich möchte nicht, dass das aktuelle Datum eingesetzt wird sobald ich auf irgendeine Zelle in der Spalte A drücke. Es soll nur dann eingesetzt werden, wenn ich auf eine definierte Zelle z.B. A5 (Spalte A, Zeile 5) klicke. Dann soll das Datum ein einer definierten Zelle z.B. D5 (Spalte D, Zeile 5) erscheinen.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Wenn mehr als eine Zelle angeklickt wurde dann nichts tun. If Target.Count > 1 Then Exit Sub ' Also neu, eine bestimmte Zelle hier A5. If Target.Address(False, False) = "A5" Then ActiveSheet.Range("D5") = Date ' Für bestimmte Zellen, Mehrzahl z.B. so. ' Dim rngUBereich As Range, rngUnion As Range ' Set rngUBereich = Range("A5:A20") ' Oder auch "A1:A20,C1:C20" oder "A1:A100" ... ' Set rngUnion = Application.Union(Range(Target.Address), rngUBereich) ' If rngUnion.Address = rngUBereich.Address Then ' Target.Offset(0, 3) = Date ' End If End Sub

Beliebteste Forumthreads (12 Monate)

Textfeld öffnen bei Klick auf Zelle

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

15 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textfeld öffnen bei Klick auf Zelle

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

15 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread