Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
720to724
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
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Klick auf Zelle Datum einfügen

Bei Klick auf Zelle Datum einfügen
18.01.2006 12:13:00
Heinz
Hallo Leute
Ich möchte wenn ich auf Zelle C10 Klicke,das mir dann das Datum das in Zelle C10 steht,in die Zellen I3 & L3 & O3 eingetragen wird.
Habe Datum in C10 bis C17.
Eventuell auch wenn ich Zb. die Zelle C15 Anklicke und mir das Datum in I3,L3,O3 eingetragen wurde,das dann die Zelle C15 farblich hinterlegt wird.
Farbe ist egal.
Könnte mir da BITTE jemand helfen ?
Gruss Heinz

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Klick auf Zelle Datum einfügen
18.01.2006 12:17:54
Josef
Hallo Heinz!
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C10:C17")) Is Nothing Then
  Cancel = True
  Range("C10:C17").Interior.ColorIndex = xlNone
  Range("I3,L3,O3").Value = Target
  Target.Interior.ColorIndex = 6
End If
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Bei Klick auf Zelle Datum einfügen
18.01.2006 12:24:21
Heinz
Hallo Josef
Du bist der absolute WAHNSINN !!
Danke für Deine extrem rasche und profihafte Hilfe.
Gruss Heinz
AW: Bei Klick auf Zelle Datum einfügen
18.01.2006 12:23:27
Harald
Hallo Heinz,
probier mal

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim bereich As Range
Set bereich = Range("c10:c17")
If Not Intersect(Target, bereich) Is Nothing Then
bereich.Interior.ColorIndex = xlNone
Range("I3,L3,O3") = Format(ActiveCell, "dd.mm.yyyy")
ActiveCell.Interior.ColorIndex = 42
End If
End Sub

Gruss Harald
AW: Bei Klick auf Zelle Datum einfügen
18.01.2006 12:32:02
Heinz
Hallo Harald
Wiederum Danke für Deine Hilfe
Aber Josef war diesmal extrem schnell.
Hätte aber eine Andere Frage.
Bei uns in der Firma,wenn ich Formulare ausdrucken möchte ist Standart mässig ein Drucker ausgewählt den ich nicht brauchen kann.
Muss vor Ausdruck immer manuel Drucker aussuchen.
Könnte ich mittels Button oder so bei Klick Automatisch auf Drucker D231 (NRG DSm622 PCL 6)
drucken lassen ?
Weisst Du hierzu auch wieder eine Lösung ?
Danke Heinz
Anzeige
AW: Bei Klick auf Zelle Datum einfügen
18.01.2006 12:37:03
Harald
Jau, Sepp is schon klasse ;-))...im Zweifelsfall sind seine Lösungen grundsätzlich meiner
vba-Hausmannskost vorzuziehen.
Bzgl. Drucker. Über (Windows) Einstellungen / Drucker und Faxgeräte diesen Drucker als Standarddrucker anhaken, funzt nicht ?
Gruss Harald
AW: Bei Klick auf Zelle Datum einfügen
18.01.2006 12:41:44
Heinz
Hallo Harald
Der Standart Drucker wird am häufigsten gebraucht,daher sollte & darf ich diesen auch nicht ändern.
Brauche den Drucker nur ca.1 mal pro Schicht für ungefähr 8 Formulare.
Gruss Heinz
AW: Bei Klick auf Zelle Datum einfügen
18.01.2006 12:46:52
Josef
Hallo Heinz!
Setze den Drucker den du haben willst. Dann lass das Makro "checkDrucker" laufen
und kopiere den String vom Direktfenster in den Code "Workbook_BeforePrint".
Dann wird vor dem Drucken dein Drucker ausgewählt!
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.ActivePrinter = "dein Drucker"
End Sub


' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub checkDrucker()
Debug.Print Application.ActivePrinter
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Bei Klick auf Zelle Datum einfügen
18.01.2006 12:56:07
Heinz
Hallo Josef
Meinst Du mit "dein Drucker" den Druckername also "D231 (NRG DSm622 PCL 6)" ?
Gruss Heinz
AW: Bei Klick auf Zelle Datum einfügen
18.01.2006 12:57:37
Josef
Hallo Heinz!
Ja, aber lass den Namen mit den Makro "checkDrucker" auslesen, damit du den genauen String hast!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Bei Klick auf Zelle Datum einfügen
18.01.2006 13:02:22
Heinz
Hallo Josef
Werde alles so machen wie Du beschrieben.
Recht herzlichen Dank
Gruss Heinz

261 Forumthreads zu ähnlichen Themen

Klick auf Zelle
Manu

Hallo
ich möchte eine Excelliste entwerfen, die jedoch nur über ein Formular gefüllt werden kann. Um das editieren eines Eintrags zu vereinfachen, soll der Nutzer einfach nur auf eine Zelle klicken. Das Blatt ansich ist gesperrt, es können nur Zellen ausgewählt werden, jedoch nicht bearbei...
12.12.2008 23:44:40
Thread-ID: 1032548
3 Beiträge
Anzeige
Automatischer Eintrag durch Doppelklick auf Zelle
Micha

Hallo liebe Spezialisten,
nachdem mir vorhin so Super in diesem Forum geholfen wurde, hier gleich die nächste Frage:
Ist es möglich, das in einem bestimmten Tabellenbereich mir durch einen Doppelklick auf eine Zelle automatisch ein "x" in diese Zelle eingegeben wird?
Würde mich über...
12.02.2009 14:30:00
Thread-ID: 1050071
6 Beiträge
Event bei Klick auf Zelle
MBorn

Hallo,
weiß jemand, ob es eine Möglichkeit gibt ein Event bei Klick auf Zelle auszulösen.
(Also, nicht auf Button, sondern Zelle. )
Etwa so: Bei Klick auf Zelle A3 trage Zahl 3 in Zelle B3 ein.
(Insgesamt brauche ich das für 10 unterschiedliche Zellen)
Danke,
Born
20.07.2009 17:50:32
Thread-ID: 1090046
5 Beiträge
Anzeige
Doppelklick auf zelle mit eigenem Namen
chris

Hallo VBA Experten,
habe hier eina kurze frage.
Würde mich wie immer über Hilfe freuen.
Ich habe eine Zelle Z.b L8
diese zelle hat den Namen "testzelle_8"
Ist es jetzt möglich irgendwie an diesen Namen zu kommen.
Also wenn ich die zelle Doppelklicke das dann der Name aus...
09.03.2010 15:42:23
Thread-ID: 1144625
11 Beiträge
Doppelklick auf gesperrte Zelle - Adresse ausgeben
chris

Hallo und guten morgen zusammen,
könnt ihr mir helfen ?
ich habe ein Sheet in dem ich einen Doppelklick abfangen will.
In diesem Sheet sind mehere zellen gesperrt so das ich sie auch nicht mit der Maus selektieren kann.
Andere zellen sind nicht gesperrt wenn ein Schutz auf dem...
10.03.2010 08:43:06
Thread-ID: 1144729
28 Beiträge
Message bei Klick auf bestimmte Zellen
bastula

Liebe Excel-Experten,
ich möchte einen bestimmten Range eines Sheets zur Berarbeitung sperren, in dem restlichen Bereich soll in dem Moment, wo man auf eine Zelles dieses Bereiches klickt, eine MessageBox mit einer Warnung kommen.
Ich habs mit: Private Sub Worksheet_SelectionChange(ByVa...
28.04.2010 17:43:13
Thread-ID: 1154356
9 Beiträge
Bei Klick auf Zelle Macro ausführen
Benedikt

Guten Abend zusammen
Nachfolgender Code funktioniert einwandfrei, aber ist in jeder Zelle des Arbeitsblatt aktiv: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Call Macro 1 End Sub
Wie kann ich Ihn auf die Zellen B24 bis B50 beschränken?
Vielen D...
01.05.2010 17:06:32
Thread-ID: 1154879
5 Beiträge
KLICK auf Zelle - User-Form Show
Edwin

Wie kann ich durch einen Klick auf eine Zelle erreichen, daß eine User-Form geöffnet wird.
01.05.2002 21:24:48
Thread-ID: 117688
5 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
5
4
19
10
27
8
4
4
1
6
2
3
8
7
2
3
11
5
2
6
1
6
1