Active Cell

Forumthread: Active Cell
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Active Cell

Active Cell

09.03.2006 16:15:35

Michael

Brauche dringend Hilfe.
Ich möchte, wenn ich mich in einer Tabelle in der Spalte A ( in irgendeiner Zelle) befinde durch ein Makro die nächsten 5 Zellen Bx, Cx, Dx, Ex, Fx, selektieren.
Danke
Michael

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Active Cell

09.03.2006 16:21:37

Bertram
AW: Active Cell

09.03.2006 16:27:42

UweD
AW: Active Cell

09.03.2006 16:56:31

michael
AW: Active Cell

09.03.2006 18:00:17

UweD
AW: Active Cell

10.03.2006 09:50:25

Michael

AW: Active Cell

09.03.2006 16:21:37

Bertram

Hallo Michael,
meinst du so:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then Range(Cells(Target.Row, 2), Cells(Target.Row, 6)).Select
End Sub

Gruß
Bertram

AW: Active Cell

09.03.2006 16:27:42

UweD

Hallo
so?
dann kannst du aber nie was in A ändern..
- rechtscklick auf den Tabellenblattreiter unten
- code anzeigen
- im neuen Fenster den Code eintragen (copy)


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fehler
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
Range(Cells(Target.Row, 2), Cells(Target.Row, 6)).Select
Fehler:
Application.EnableEvents = True
End Sub

Gruß UweD
(Rückmeldung wäre schön)

AW: Active Cell

09.03.2006 16:56:31

michael

Trifft nicht ganz.
Ich muss in Spalte 1 noch etwas eingeben können ... und irgendwann brauche ich die Zeile nicht mehr, wähle spalte A (irgeneine Zelle) an und starte ein Makro. Dann sollen die zellen Ax bis Ex selektiert werden, ausgeschnitten und übertragen.
Die letzten beiden Schritte bekomme ich hin. nur den ersten nicht.
Gruß
Michael

AW: Active Cell

09.03.2006 18:00:17

UweD

Hallo
dann bau das in dein Makro ein...
Range(Cells(Selection.Row, 2), Cells(Selection.Row, 6)).Select
Gruß UweD
(Rückmeldung wäre schön)

AW: Active Cell

10.03.2006 09:50:25

Michael

DAS ist es. Funktioniert :-)
Du hast mir sehr geholfen.
Vielen herzlichen Dank
Gruß
Michael

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