Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.11.2025 10:02:46
Formelsuche mit 2 Suchkriterien (sverweis und mehr...)
03.11.2025 19:12:10
2 Makros, 2 Ergebnisse, nur das erste Ergebnis korrekt?
03.11.2025 15:51:02
Zelle E1,Uhrzeit ,gleiche Datum in sichtbare Zellen N suchen
03.11.2025 14:48:20
Links funktionieren nur bei ganzer Tabelle, nicht bei Auszug
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1204to1208
1204to1208
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich select abhaengig von Target.Row

Forumthread: Bereich select abhaengig von Target.Row

Bereich select abhaengig von Target.Row
Target.Row
Hallo Allemann
Ich versuche jeweils drei Zellen zu selectieren. Nur soll dies erfolgen abhaengig von Target.Row
Fest steht es sind immer die Zeilennummern 6 bis 8 oder 9 bis 11 usw.. Nur halt abhaengig von der Target.Row.
Mein Ansatz ist/war: 

Target.Row Mod 3

nur wie schaffe ich es beispielsweise, das wenn Target.Row 10(es kann auch 9 oder 11 sein) ist die Zeilen 9 bis 11 selectiert werden?
Bin dankbar fuer Ansaetze.
gruss hary
Zur Anschau:
Tabelle1
 ABCDE
3         
4         
5         
6         
7         
8    hier Target, dann gelb select   
9         
10    wenn hier Target, dann rot select   
11         
12         

Füllfarben und Muster
Zelle Rot Grün Blau Color Muster Farbe
A6 255255065535   
A7 255255065535   
A8 255255065535   
A9 25500255   
A10 25500255   
A11 25500255   
Zellen mit Füllfarbe automatisch werden nicht dargestellt

Tabellendarstellung in Foren Version 5.30


Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Bereich select abhaengig von Target.Row
18.03.2011 00:42:26
Target.Row
Hallo Hary,
hilft dir das: 
Sub tt()
Dim N
For N = 9 To 14
MsgBox Int(N / 3) * 3 + 1
Next N
End Sub

Gruß
Reinhard
AW: Bereich select abhaengig von Target.Row
18.03.2011 01:10:23
Target.Row
Moin Reinhard
Danke fuers Gedanken machen.
Nee, nicht so wirklich, oder es liegt an der Uhrzeit. ;-))
Hab es jetzt so geloest: 

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Integer
With Target
a = .Row Mod 3
Select Case a
Case 0
Range(Cells(.Row, 1), Cells(.Row + 2, 1)).Select
Case 1
Range(Cells(.Row - 1, 1), Cells(.Row + 1, 1)).Select
Case 2
Range(Cells(.Row - 2, 1), Cells(.Row, 1)).Select
End Select
End With
End Sub

Die select kommen noch weg. Geht nur um den Bereich. Vlt. geht's auch noch einfacher.
Hatte mich so in offset/Resize verbissen, also an einen einzeiler
gruss hary
Anzeige
AW: Bereich select abhaengig von Target.Row
18.03.2011 07:05:02
Target.Row
Moin Hary!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Row
Gruß Gerd
AW: Bereich select abhaengig von Target.Row
18.03.2011 07:32:11
Target.Row
Hallo
und hier noch eine Variante, obwohl das Bsp von Gerd besser und flexibler ist.
Ich will Dir hiermit nur zeigen, das Du auf die Variable a und MOD 3 (Dein geposteter Code) verzichten kannst.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Row
Case 6 To 8
Range(Cells(6, 1), Cells(8, 1)).Select
Case 9 To 11
Range(Cells(9, 1), Cells(11, 1)).Select
End Select
End Sub
Dies soll nur als zusätzliche Information dienen.
Benutzen würde ich den Code, den Gerd gepostet hat.
Gruß Matthias
Anzeige
AW: Bereich select abhaengig von Target.Row
18.03.2011 14:03:36
Target.Row
Hallo Gerd, Hallo Matthias
@ Gerd
Danke, genau so habe ich's gemeint.
@ Matthias
Auch Dir danke, hatte mich bescheiden ausgedrueckt. Sollte natuerlich fuer einen groesseren Bereich gelten. Daher hatte ich mit Case und Mod gearbeitet.
Gruss hary
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige