Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1296to1300
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
Inhaltsverzeichnis

Mit Doppelklick Zelle füllen

Mit Doppelklick Zelle füllen
17.02.2013 20:03:47
Thorsten
Hallo zusammen,
ich bin neu hier und habe ein Problem. Ich möchte gerne in eine Excel-Tabelle in verschiedene Zellen klicken, und in den verschiedenen Zellen soll dann was anderes stehen.
z.B.
- Doppelklick in A1 = Hallo
- Doppelklick in B1 = hurra
- Doppelklick in A2 = date
- Doppelklick in B2 = time
Habe im Netz verschiedene Ansätze gefunden, aber nichts war genau auf mein Problem ausgerichtet.
Ich hoffe, ihr könnt mir helfen.
Vielen Dank schon mal.
Thorsten

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

Betreff
Datum
Anwender
Anzeige
AW: Mit Doppelklick Zelle füllen
17.02.2013 20:08:48
Hajo_Zi
Hallo Torsten,
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Taget.Address(False, False) = "A1" Then
Target = "Hallo"
ElseIf Taget.Address(False, False) = "B1" Then
Target = "hurra"
ElseIf Taget.Address(False, False) = "A2" Then
Taget = Date
ElseIf Taget.Address(False, False) = "B2" Then
Target = Time
End If
End Sub

AW: Mit Doppelklick Zelle füllen
17.02.2013 20:16:57
Hajo_Zi
Hallo Thorsten,
nochmal
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(False, False) = "A1" Then
Target = "Hallo"
ElseIf Target.Address(False, False) = "B1" Then
Target = "hurra"
ElseIf Target.Address(False, False) = "A2" Then
Target = Date
ElseIf Target.Address(False, False) = "B2" Then
Target = Time
End If
End Sub
Gruß Hajo

Anzeige
AW: Mit Doppelklick Zelle füllen
17.02.2013 20:26:37
Thorsten
Hallo Hajo,
das ging ja richtig schnell.
Ich versuche es mal und melde mich dann wieder.
DANKE, schon mal.

AW: Mit Doppelklick Zelle füllen
17.02.2013 20:36:29
Thorsten
Hallo Hajo,
das funktioniert super in einer leeren Arbeitsmappe. Aber in meiner Ausgearbeiteten Arbeitsmappe funktioniert es nicht. Ist ist der komplette Text, den ich drin stehen habe. Vielleicht beißt sich ja irgendwas:
(Anmerkung: Zelle I8 ist eigentlich verbunden = I8:J8)
--------------
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(False, False) = "I8" Then
Target = Date & " | " & Time
ElseIf Target.Address(False, False) = "I90" Then
Target = Date & " | " & Time
ElseIf Target.Address(False, False) = "J93:J132" Then
Target = "X"
ElseIf Target.Address(False, False) = "O8" Then
Target = Date & " | " & Time
ElseIf Target.Address(False, False) = "090" Then
Target = Date & " | " & Time
ElseIf Target.Address(False, False) = "P93:P132" Then
Target = "X"
End If
End Sub

'Wenn in Spalte D was eingetragen wird
'erscheint 1 Spalte weiter die Uhrzeit aus dem System
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("F93:F132"), Target) Is Nothing Then
If Len(Target.Value) > 0 Then Target.Offset(0, 1).Value = Date & " | " & Time
End If
If Not Application.Intersect(Range("L93:L132"), Target) Is Nothing Then
If Len(Target.Value) > 0 Then Target.Offset(0, 1).Value = Date & " | " & Time
End If
End Sub

--------------

Anzeige
AW: Mit Doppelklick Zelle füllen
17.02.2013 20:40:07
Hajo_Zi
Hallo Torsten,
bei Doppelklick kann die Zelladresse nicht "J93:J132"; "P93:P132" sein.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Link zur Datei wäre nicht schlecht.
Gruß Hajo

AW: Mit Doppelklick Zelle füllen
17.02.2013 20:59:17
Thorsten
Ich bin dabei die Datei auf 300kb zu bekommen. Dies dauert noch etwas. Es liegt an den letzten 100kb.

AW: Mit Doppelklick Zelle füllen
17.02.2013 21:24:36
Thorsten
Hallo Hajo,
ich habe eine neue Datei gebastelt.
Diese spielt das wider, was ich suche.
https://www.herber.de/bbs/user/83946.xls
Danke.

Anzeige
AW: Mit Doppelklick Zelle füllen
17.02.2013 20:49:32
Peter
Hallo Thorsten,
versuche es so:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(False, False) = "I8" Then
Target = Date & " | " & Time
ElseIf Target.Address(False, False) = "I90" Then
Target = Date & " | " & Time
ElseIf Target.Column = 10 Then   ' "J93:J132"
Select Case Target.Row
Case 93 To 132: Target = "X"
End Select
ElseIf Target.Address(False, False) = "O8" Then
Target = Date & " | " & Time
ElseIf Target.Address(False, False) = "090" Then
Target = Date & " | " & Time
ElseIf Target.Column = 16 Then ' "P93:P132"
Select Case Target.Row
Case 93 To 132: Target = "X"
End Select
End If
End Sub

Gruß Peter

Anzeige
AW: Mit Doppelklick Zelle füllen
17.02.2013 20:53:50
Peter
Hallo Thortsten,
Dein Code enthält noch einen Schreibfehler: es darf nicht Null90 sondern O90 heißen.
Gruß Peter

AW: Mit Doppelklick Zelle füllen
17.02.2013 21:06:46
Thorsten
Ich schaffe es nicht, die xls-Datei auf 300kb zu minimieren.
Ich versuche mal den Vorschlag von Peter.

AW: Mit Doppelklick Zelle füllen
17.02.2013 21:15:45
Thorsten
Hallo Peter,
das mit dem "X" eintragen funktioniert. Aber die Datums/uhrzeit-eintragung leider noch nicht.
Kann es sein, dass es nicht funktioniert weil I8 und J8 "verbunden" sind?

AW: Mit Doppelklick Zelle füllen
17.02.2013 23:22:13
Thorsten
Hallo Peter,
hallo Hajo,
ich danke Euch recht herzlich für Eure Mühen. Es hat nun funktioniert :-)
Vielen Dank
Gruß
Thorsten
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige