Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
512to516
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
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleninhalt beim anklicken Kopieren...

Zelleninhalt beim anklicken Kopieren...
08.11.2004 18:48:41
Steffi
Hallo Forum,
wie kann ich Excel dazu verleiten, dies auszuführen?
In Zellen A1 bis E1 ist der Eintrag G, U, SE, ST, UU
Wenn ich jetzt Zelle A1 anklicke, möchte ich das Excel den Wert kopiert so das ich bei einem weiteren klick auf leere Zellen den Wert also in dem Fall G eingefügt bekomme!?
Wenn ich jetzt auf B1 klicke, soll Excel mir diesen Wert (U) in die anderen Zellen beim Anklicken einfügen!
Geht das mit VBA?
Danke Euch
Gruß
Steffi

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalt beim anklicken Kopieren...
08.11.2004 19:10:33
Josef
Hallo Steffi!
Ausfüllen bei Klick ist nicht sehr praktikabel, weil dann jede
Zelle bei auswahl ausgefüllt wird!
Besser ist es, du nimmst das Doppel-Klick Ereignis.
Füge diesen Code in das Modul der Tabelle ein.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, [A1:E1]) Is Nothing Then
[A1:E1].Font.ColorIndex = xlAutomatic
var = Target
Target.Font.ColorIndex = 3
Exit Sub
End If
Target = var
End Sub

Gruß Sepp
AW: Zelleninhalt beim anklicken Kopieren...
Steffi
Hallo Sepp,
danke für Deine Antwort...
ich habe es jetzt ins Modul eingetragen, gespeichert und die Tabelle wieder geöffnet!
So weit so gut, wenn ich jetzt einen doppelklick mache dann wird der Eintrag in der Zelle Rot!
Aber wenn ich dann in einer anderen leeren Zelle klicke, dann tut sich irgendwie nichts!
Was mache ich Falsch?
Gruß
Steffi
Anzeige
AW: Zelleninhalt beim anklicken Kopieren...
08.11.2004 20:02:20
Josef
Hallo Steffi!
Zum Eintragen in eine Zelle, musst du auch Doppelklicken!
Gruß Sepp
AW: Zelleninhalt beim anklicken Kopieren...
Steffi
Du Sepp,
genau das mache ich ja... aber es geht irgendwie nicht!
Wenn ich A1 doppelklicke dann wird die Zelle Rot, dann klicke ich zweimal zb. in A3 aber nichts passiert!
Was kann es sein?
Gruß
Steffi
AW: Zelleninhalt beim anklicken Kopieren...
08.11.2004 20:45:53
Josef
Hallo Steffi!
Sorry, mein Fehler!
Beim Kopieren ist wohl die erste Zeile verloren gegangen.
Dim var As Variant

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, [A1:E1]) Is Nothing Then
[A1:E1].Font.ColorIndex = xlAutomatic
var = Target
Target.Font.ColorIndex = 3
Exit Sub
End If
Target = var
End Sub

Das ist der gesamte Code.
Wenn du aber "Option Explicit" aktiviert hättest, dann wäre eine Fehlermeldung
über die nicht deklarierte Variable gekommen!
Geht im VBA-Editor unter &gt Extras &gt Optionen &gt Variablendeklaration erforderlich
Gruß Sepp
Anzeige
AW: Zelleninhalt beim anklicken Kopieren...
Steffi
Hallo Sepp,
tausend Dank... es Funktioniert Super!
"Option Explicit" habe ich jetzt Aktiviert, man kann ja nie wissen!
Danke Dir nochmals
Gruß
Steffi

308 Forumthreads zu ähnlichen Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
4 Beiträge
Anzeige

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
5
2
4
3
5
1
1
4
5
3
3
4
2
2
5
6
6
7
5
2
3
21
5
7
8