Zeilen ausblenden und Wert durch klicken übertrage
14.11.2012 15:09:32
Ralf
Als erstes erstmal super...was man in kurzer so alles über VBA lernen kann...wow...
nun zu meinem Problem oder eher Problemen....
Ich würde gern 3 Sachen in einem verbinden, was laut den hier bereits verwendeten Codes scheinbar möglich ist:
Ich möchte in der Spalte B durch einfaches Klicken auf eine Zelle (Beispiel B9) die Zeilen 10-13 ausblenden und durch Klicken auf eine andere Zelle (Beispiel B14) die Zeilen 15-16, dabei sollen aber dann die vorherigen Zeilen (10-13) wieder ausgeblendet werden. Ist das so möglich?
Und wenn ich dann auf eine Zelle in der Spalte D (Beispiel D11) klicke, soll der Wert aus Spalte E (Beispiel E11) in eine andere Tabelle (Beispiel "Rohr + Formteil") übernommen werden. Das habe ich soweit schon gelöst
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("D3300")) Is Nothing Then Exit Sub
Sheets("Rohr + Formteil").Range("B17").Value = Target.Offset(0, 1).Value
End Sub
Außerdem möchte ich gern nach dem Klicken auf die Zelle D11 (oder andere in Spalte D) automatisch in die Tabelle "Rohr + Formteil" kommen
Vielen vielen Dank vorab für eure Hilfe
MfG
R
_________________
es gibt keine Probleme, uns fehlt nur die richtige Sicht
Anzeige