Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleninhalt bei Anklicken auswerfen

Zelleninhalt bei Anklicken auswerfen
07.02.2004 07:18:30
Chris
Hallo,
wie kann ich es schaffen, dass der Inhalt einer Zelle ausgeworfen wird, wenn ich sie Anklicke. Der Inhalt soll jedoch in einer definierten neuen Zelle (z.B. B1) ausgeworfen werden. Die Zellen bei der dieses Anklicken funktionieren soll (z.B. C1:C20 & E1:E20), müsste ebenfalls definiert sein.
Beispiel:
Wenn ich mit der Maus auf eine der Zellen (C1:C20) und (E1:E20) klicke, soll der Inhalt der jeweiligen Zelle in Zelle B1 angezeigt werden.
Ist sowas möglich? Wenn ja was brauche in den da für einen VBA Befehl.
Danke für die Hilfe.
Chris

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

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalt bei Anklicken auswerfen
07.02.2004 08:55:26
jinx
Moin, Chris,
Klassenbefehle aus der entsprechenden Tabelle: Worksheet_SelectionChange, Worksheet_BeforeDoubleClick oder Worksheet_BeforeRightClick.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngGesamt As Range
Set rngGesamt = Range("C1:C20, E1:E20")
If Intersect(Target, rngGesamt) Is Nothing Then GoTo HierRaus
If Selection.Cells.Count > 1 Then
MsgBox "Bitte nur eine Zelle markieren", vbCritical, "Information"
Exit Sub
End If
[B1] = Target.Value
HierRaus:
Set rngGesamt = Nothing
End Sub

cu
jinx
AW: Zelleninhalt bei Anklicken auswerfen
07.02.2004 09:01:18
Nepumuk
Hallo jinx, (bist du der jinx aus MS-Office Forum?)
wozu Objektvariable und Goto? Strukturiert programmieren!

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C1:C20, E1:E20")) Is Nothing Then
If Target.Count = 1 Then
[B1] = Target.Value
Else
MsgBox "Bitte nur eine Zelle markieren.", vbCritical, "Information"
End If
End If
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk
Anzeige
AW: Zelleninhalt bei Anklicken auswerfen
07.02.2004 09:36:55
jinx
Moin, Nepumuk,
Danke für den berechtigten Hinweis. Kennst Du sonst noch jemanden, der solchen "Umstand" im Bereich Excel kundtut?
cu
jinx
AW: Zelleninhalt bei Anklicken auswerfen
07.02.2004 09:43:28
Nepumuk
Hi jinx,
ich glaube, ich steh jetzt auf der Leitung. Kannst du mir deine Frage auf den Umstand anpassen, dass es noch fast mitten in der Nacht ist?
Gruß
Nepumuk
AW: Zelleninhalt bei Anklicken auswerfen
07.02.2004 10:01:13
jinx
Moin, Nepumuk,
allein Deine Nachfrage beantwortet doch den Zweifel, ob ich denn ansonsten woanders mein Unwesen treibe.
Mit "Umstand" meinte ich eigentlich jenen Tatbestand, der abgeleitet von umständlich ist - wohl wissend, dass die Assoziation dem Wort normalerweise einen anderen Inhalt (oder besser: Zustand) zuweist... Klartext: Es ist doch recht unwahrscheinlich, dass noch jemand solche Arbeiten unter diesem Nick veröffentlicht - da stehe ich wohl schon alleine da.
Schönes Wochenende
jinx
Anzeige
AW: Zelleninhalt bei Anklicken auswerfen
07.02.2004 09:03:11
Josef Ehrensberger
Hallo Chris!
Diesen Code in das Modul der Tabelle kopieren.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [C1:C20,E1:E20]) Is Nothing Then
If Target.Count = 1 Then
[B1] = Target
End If
Else
[B1] = ""
End If
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige

303 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

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