bei Klick in Zelle Werte in anderer Zelle anzeigen

Forumthread: bei Klick in Zelle Werte in anderer Zelle anzeigen

16.01.2014 16:40:37

Andreas

Hallo Excel User,
Ich habe mal wieder ein kniffeliges Problem, bei dem ich mit meinen bescheidenen Kenntnissen nicht weiterkomme.
Ich habe eine Urlaubsliste für ein Jahr. Da man beim eintragen schnell mal in die falsche Zeile oder Spalte rutscht wollte ich das bei Klick in eine Zelle folgendes passiert.
Bei Klick im Bereich G4 bis AB121 soll in - H2 der Wert aus Spalte A - und in - P2 der Wert aus Zeile 3 angezeigt werden.
Bei Klick im Bereich AC4 bis AV121 soll in - AD2 der Wert aus Spalte A - und in - AL2 der Wert aus Zeile 3 angezeigt werden.
usw.
https://www.herber.de/bbs/user/88854.xlsm
In der Spalte A stehen Namen und in Zeile 3 Datumswerte.
Allerdings müsste diese "Anzeige" vor dem Ausführen von den beiden Sortieren-Makros ausgeschaltet und danach wieder eingeschaltet werden.
Die Werte in Zeile 2 habe ich mal zur Ansicht wie es aussehen soll händisch eingeführt.
Geht so etwas, und kann mir Jemand helfen, komme da mit nem Makrorekorder nicht weiter.
Danke fürs lesen!
mfg, Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: bei Klick in Zelle Werte in anderer Zelle anzeigen

17.01.2014 13:18:05

fcs

Hallo Andreas,
hier ein entsprechendes Ereignismakro. Die Case-Zeilen für die weiteren Monate musst du dann kopieren und die Zellen entsprechend anpassen.
Um die Anzeige in Zeile 2 auszublenden muss du nur in eine beliebige Zelle in Spalten A bis F klicken.
Gruß
Franz

'Ereignismakro im VBA-Editor unter dem Tabellenblatt "Urlaubsliste" einfügen.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SpalteName As Long, SpalteDatum As Long
Application.ScreenUpdating = False
Range("G2:IW2").ClearContents
'    If Target.Cells.Count = 1 Then
Select Case Target.Row
Case 4 To 121
Select Case Target.Column
Case Range("G3").Column To Range("AB3").Column
SpalteName = Range("H3").Column
SpalteDatum = Range("P3").Column
Case Range("AC3").Column To Range("AV3").Column
SpalteName = Range("AD3").Column
SpalteDatum = Range("AL3").Column
'usw.
End Select
If SpalteName > 0 Then
Cells(2, SpalteName).Value = Cells(Target.Row, 1).Value
Cells(2, SpalteDatum).Value = "'" & _
Format(Cells(3, Target.Column).Value, "DD.MM.YYYY")
End If
Case Else
End Select
'    End If
Application.ScreenUpdating = True
End Sub

AW: bei Klick in Zelle Werte in anderer Zelle anzeigen

18.01.2014 13:14:28

Andreas

Hallo fcs,
das funktioniert ja super. Vielen Dank für die Mühe und Hilfe!
Ein schönes Wochenende!
mfg, Andreas

Infobox / Tutorial

Werte in einer anderen Zelle durch Klick anzeigen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um den Inhalt einer Zelle in einer anderen anzuzeigen, kannst du ein einfaches Ereignismakro in Excel nutzen. Hier sind die Schritte:

Öffne dein Excel-Dokument und drücke ALT + F11, um den VBA-Editor zu öffnen.
Suche im Projektfenster das Arbeitsblatt, auf dem du die Funktion anwenden möchtest (z.B. "Urlaubsliste").

Füge den folgenden VBA-Code in das Codefenster ein:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim SpalteName As Long, SpalteDatum As Long
   Application.ScreenUpdating = False
   Range("G2:IW2").ClearContents

   Select Case Target.Row
   Case 4 To 121
       Select Case Target.Column
       Case Range("G3").Column To Range("AB3").Column
           SpalteName = Range("H3").Column
           SpalteDatum = Range("P3").Column
       Case Range("AC3").Column To Range("AV3").Column
           SpalteName = Range("AD3").Column
           SpalteDatum = Range("AL3").Column
       End Select
       If SpalteName > 0 Then
           Cells(2, SpalteName).Value = Cells(Target.Row, 1).Value
           Cells(2, SpalteDatum).Value = "'" & Format(Cells(3, Target.Column).Value, "DD.MM.YYYY")
       End If
   End Select
   Application.ScreenUpdating = True
End Sub

Schließe den VBA-Editor und teste die Funktion, indem du in den Bereich G4 bis AB121 klickst.

Häufige Fehler und Lösungen

Problem: Nichts passiert, wenn ich klicke.
- Lösung: Stelle sicher, dass das Makro im richtigen Arbeitsblatt eingefügt wurde. Überprüfe auch, ob Makros in deinen Excel-Einstellungen aktiviert sind.
Problem: Die Werte werden nicht korrekt angezeigt.
- Lösung: Überprüfe, ob die Zellreferenzen im Code korrekt sind und ob die Formatierung der Daten in den Zellen stimmt.

Alternative Methoden

Wenn du keinen VBA-Code verwenden möchtest, kannst du auch die Funktion INDIREKT nutzen, um dynamisch auf Zellen zuzugreifen. Zum Beispiel:

=INDIREKT("A" & ROW())

Diese Formel zeigt den Inhalt der Zelle in Spalte A der aktuellen Zeile an.

Praktische Beispiele

Angenommen, du hast eine Liste von Namen in Spalte A und Daten in Zeile 3. Mit dem obigen VBA-Code kannst du beim Klicken auf die Zellen in den angegebenen Bereichen die Namen in H2 oder AD2 und das Datum in P2 oder AL2 anzeigen.

Tipps für Profis

Nutze die Option Application.ScreenUpdating im VBA, um flackernde Bildschirme zu vermeiden, während dein Makro läuft.
Experimentiere mit weiteren Select Case-Befehlen, um zusätzliche Monate oder spezifische Zellen zu integrieren.

FAQ: Häufige Fragen

1. Frage
Kann ich das Makro für andere Arbeitsblätter verwenden?
Antwort: Ja, du kannst das Makro in jedes gewünschte Arbeitsblatt kopieren, musst jedoch die Zellreferenzen anpassen.

2. Frage
Wie kann ich den VBA-Code anpassen, um mehr Zellen einzuschließen?
Antwort: Füge einfach weitere Case-Anweisungen im Select Case-Block hinzu und passe die Zellreferenzen entsprechend an.

Beliebteste Forumthreads (12 Monate)

bei Klick in Zelle Werte in anderer Zelle anzeigen

Forumthread: bei Klick in Zelle Werte in anderer Zelle anzeigen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Werte in einer anderen Zelle durch Klick anzeigen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

bei Klick in Zelle Werte in anderer Zelle anzeigen

Forumthread: bei Klick in Zelle Werte in anderer Zelle anzeigen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Werte in einer anderen Zelle durch Klick anzeigen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread