Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
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
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen per Doppelklick auslesen

Zellen per Doppelklick auslesen
Serge
Hallo zusammen
Ist es möglich dass zuoberst in der Tabelle gewisse Werte aus der aktiven Zeile wiedergeben werden, damit diese auf dem Beamer gross publiziert werden können, dennoch aber in anderen Beriechen der Tabelle weiter gearbeitet werden kann. Sobald man wieder eine Zeile per Doppelklick oder Makro aktiviert, sollten wieder von der aktiven Zeile Werte übernommen werden.
Gruss
AW: Zellen per Doppelklick auslesen
19.11.2010 17:15:59
hary
Hallo
teste mal so.
Erste Zeile ist fixiert. Uebergabe der ganzen Zeile, durch Doppelklick in dem unteren Bereich. Da keine Ahnung welche Werte Du brauchst.
https://www.herber.de/bbs/user/72398.xls
Code in Tabelle: 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Rows(1).Value = Rows(Target.Row).Value
End Sub

gruss hary
AW: Zellen per Doppelklick auslesen
23.11.2010 10:07:59
Serge
Hallo
Vielen Dank, der Ansatz ist nicht schlecht...
Ich möchte dass oben der Name, Kategorie, Land und die jeweilige aktive Distanz wiedergeben wird.
z.B. Athlet Test1 sollte 50 wiedergeben werden, möchte aber die anderen Werte zu gleichen Zeit ändern können, bis der Athlet Test 2 an der Reihe ist dann sollte sein Namen und die Distanz 60 kommen. Ende Durchgang würde dann Distanz 2 an die Reihe kommen.
https://www.herber.de/bbs/user/72436.xls
Gruss Serge
Anzeige
AW: Zellen per Doppelklick auslesen
23.11.2010 13:10:21
hary
Hallo Serge
so? 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Range("B1") = Cells(Target.Row, 1).Value
Range("B2") = Cells(Target.Row, 3).Value
Range("B3") = Cells(Target.Row, 4).Value
Range("B4") = Cells(Target.Row, 5).Value
End Sub

gruss hary
AW: Zellen per Doppelklick auslesen
23.11.2010 14:16:21
Serge
Unglaublich fast Perfekt...
Ist es möglich dass es im zweiten Wettkampfdurchlauf, dieselben Daten holt aber mit den Werten von Distanz 2?
Und vielen Dank für die Hilfe...
Gruss Serge
AW: besser
23.11.2010 17:44:45
hary
Hallo Serge
nimm mal bitte diesen Code fue die zweite Mappe. 

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("E13:G100")) Is Nothing Then 'Bereich anpassen
Application.EnableEvents = False
Range("B1") = Cells(Target.Row, 1).Value
Range("B2") = Cells(Target.Row, 3).Value
Range("B3") = Cells(Target.Row, 4).Value
If Cells(Target.Row, Columns.Count).End(xlToLeft).Column > 4 Then
Range("B4") = Cells(Target.Row, Cells(Target.Row, Columns.Count).End(xlToLeft).Column). _
Value
Else
Range("B4").ClearContents
End If
End If
Application.EnableEvents = True
End Sub

gruss hary
Anzeige
AW: Zellen per Doppelklick auslesen
24.11.2010 11:40:26
Serge
Hallo, SUPER
Ich finde das mit dem Doppelklick perfekt, weil ich während der Anzeige die anderen Werte ändern kann.
Jetzt noch eine kleine Frage. Ich habe in meiner Datei schon den Befehl "Worksheet_BeforeDoubleClick" vorhanden und habe die jeweiligen Makros mit "Case" und "Case Else" unterteilt. Die Doppelklicks währen im unserem Beispiel auf verschiedenen Zellen der Zeil 12 verteilt.
https://www.herber.de/bbs/user/72442.xls
Kann man es so ändern dass dein VBA nur ab Zeile 13 funktioniert?
Wie kann ich es in mein VBA einbinden, nach "Case Else"?
Gruss Serge
Anzeige
AW: Zellen per Doppelklick auslesen
24.11.2010 12:27:37
hary
Hallo Serge
teste mal. 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
'----------hier zwischen Deinen anderen Code-------------------
'--------------Ende Dein Code-----------------------------
If Cells(Target.Row, Columns.Count).End(xlToLeft).Column > 4 And Target.Row > 12 Then
Range("B1") = Cells(Target.Row, 1).Value
Range("B2") = Cells(Target.Row, 3).Value
Range("B3") = Cells(Target.Row, 4).Value
Range("B4") = Cells(Target.Row, Cells(Target.Row, Columns.Count).End(xlToLeft).Column).Value
Else
Range("B4").ClearContents
End If
End Sub

gruss hary
Anzeige
AW: Zellen per Doppelklick auslesen
25.11.2010 11:21:15
Serge
Hallo, wollte das Problem mit dem Durgestrichen ändern, aber ich lasse es mal so.
Ich habe nach jeder (Distanz) Zelle die Formel =Durgestrichen welche wiederum WAHR oder FALSCH zurück gibt, dies Funktioniert aber nur wenn =Durgestrichen direkt neben der Zelle ist.
Habe dies mit dem Namens-Manager gelöst.
Deine Doppelklicklösung ist Perfekt, aber müsste angepasst werden, weil ich eben die WAHR/FALSCH Linien dazwischen habe….
Siehe: https://www.herber.de/bbs/user/72467.xls
Nochmals vielen Dank für deine Hilfe!!!!!!!
Gruß Serge
Anzeige
AW: Zellen per Doppelklick auslesen
25.11.2010 11:34:14
Serge
So, habe mal ein wenig das Endprojekt geladen... ;-)
https://www.herber.de/bbs/user/72468.xls
Es gibt drei verschiedene Disziplinen und Athleten welche alle machen oder nur zwei oder eine.
Also müsst jeweils nur das Resultat wiedergeben werden welches gerade absolviert wird vom Athleten.
Gruss

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige