Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
740to744
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
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Active Cell

Active Cell
09.03.2006 15: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
Anzeige
AW: Active Cell
09.03.2006 15: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 15: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)
Anzeige
AW: Active Cell
09.03.2006 15: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 17: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 08:50:25
Michael
DAS ist es. Funktioniert :-)
Du hast mir sehr geholfen.
Vielen herzlichen Dank
Gruß
Michael
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige