Springen

[Django 48]

Weiß nicht, wie ich das Thema nennen soll und ob das überhaupt geht. . Hab ne Frage: In Zeile 1 steht in A1 a, in B1 b, in C1, c , bis F1, f. Unter Zeile G gibt es 100 Werte, unter H 50 Werte, unter I 30 Werte, etc
Wenn ich nun auf z.b. C1, also c gehe, soll  die letzte Zelle unter I, also I 30 erscheinen, bei A1, a eben F100

Danke für Tipps

[UweD]

erscheinen

Was soll das bedeuten?

Soll eine Wolke über dem Bildschirm aufsteigen? 

Soll die Zelle markiert werden und dort hin gescollt werden?
Soll eine MSGbox mit dem Inhalt "erscheinen"
??


LG UweD

[Gast 123]

Hallo

in das Blatt wo die Werte stehen im Blattmodul dieses Makro ieinfügen, dann bekommt man bei jedem anklicken mit der Maus in Zeile 1 von "a bis f" alle Endzeilen in Spalte G angezeigt. Soll der Inhalt der Zelle angezeigt werden muss man nur "Row" durch "Value" ersetzen! Würde mich freuen wenn das dem Wunsch nahe kommt.

mfg  Gast 123

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 Then Exit Sub
If Target.Column < 7 Then
   [g2].Value = "A" & Cells(Rows.Count, 1).End(xlUp).Row
   [g3].Value = "B" & Cells(Rows.Count, 3).End(xlUp).Row
   [g5].Value = "C" & Cells(Rows.Count, 4).End(xlUp).Row
   [g6].Value = "D" & Cells(Rows.Count, 5).End(xlUp).Row
   [g7].Value = "E" & Cells(Rows.Count, 6).End(xlUp).Row
   [g8].Value = "F" & Cells(Rows.Count, 6).End(xlUp).Row
End If
End Sub

[Django 48]

Danke, es gibt also eine Möglichkeit

Ich probiere es aus

[RPP63]

Wobei [g2].Value ähnlich ist wie Schwangere mit Fötus in der Gebährmutter.

Ich für meinen Teil habe überhaupt nicht verstanden, was Du wirklich vorhast!