Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
348to352
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Frage zu ActiveCell.Offset

Frage zu ActiveCell.Offset
09.12.2003 11:35:46
Scotty
Hallo,

habe eine Tabelle, in der ich mit folgenden Makro alle grauen Zellen überspringen kann. Das Makro funktioniert auch, es gibt nur noch ein kleines Prob. Wenn ich die Tab. von oben nach unten beschreibe (tut man ja normalerweise :)), ist es von Vorteil, das unter der jeweils grauen Zelle weiter eingegeben werden kann. Kann aber jetzt per Tastatur nicht mehr über die graue Zelle hinweg nach oben springen. (logisch, siehe Makro)Kann man da irgendwas ändern, das ich wenn ich von oben nach unten eingebe, unter der Zelle weiterschreibe und umgekehrt?


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell.Interior.ColorIndex = 15 Then
ActiveCell.Offset(1, 0).Select
End If
End Sub


Danke euch allen
Liebe Grüße
Scotty

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Frage zu ActiveCell.Offset
09.12.2003 11:52:17
Boris
Hi Scotty,

arbeite mit einer Publicvariable, die außerhalb der Prozedur deklariert wird und die Zeilennummer "ziwschenspeichert":

Option Explicit

Public Oldrow As Long


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Oldrow = 0 Then Oldrow = 1
If ActiveCell.Row < Oldrow Then
Oldrow = ActiveCell.Row
Exit Sub
End If
If ActiveCell.Interior.ColorIndex = 15 Then
ActiveCell.Offset(1, 0).Select
Oldrow = ActiveCell.Row
End If
End Sub


Grüße Boris
AW: Frage zu ActiveCell.Offset
09.12.2003 12:04:00
Scotty
Hallo Boris,

danke für dein Tipp, der funktioniert echt prima! Dankeschön!!! Sag mal, kann man beim "hochspringen" die grauen Zellen auch irgendwie überspringen?

Vielleicht kannst du mir auch bei nen anderen Prob helfen. Ist es irgendwie möglich, nach jeden Seitenwechsel eine bestimmte Zeile einzufügen. z. B. die Zellen von A1:F1?

Danke dir
Scotty
Anzeige
AW: Frage zu ActiveCell.Offset
09.12.2003 12:16:51
Boris
Hi Scotty,

auf die Schnelle:

Option Explicit

Public Oldrow As Long


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Oldrow = 0 Then Oldrow = 1
If ActiveCell.Row = 1 Then Exit Sub
If ActiveCell.Row < Oldrow Then
Oldrow = ActiveCell.Row
If ActiveCell.Interior.ColorIndex = 15 Then
ActiveCell.Offset(-1, 0).Select
Oldrow = ActiveCell.Row
End If
Exit Sub
End If
If ActiveCell.Interior.ColorIndex = 15 Then
ActiveCell.Offset(1, 0).Select
Oldrow = ActiveCell.Row
End If
End Sub


Für die Zusatzfrage starte einen neuen Thread.

Grüße Boris
Anzeige
Spitzenklasse!!
09.12.2003 12:36:01
Scotty
Hi Boris,

danke für das Makro was du mir gezaubert hast. Es funktioniert prima!!

Gruß Scotty

39 Forumthreads zu ähnlichen Themen

ActiveSheet.Cells(ActiveCell.row, 243).Activate ??
Mathias

Hallo,
folgende Zeile führt bei mir dazu, dass die aktive Zelle außerhalb des Bildschirms liegt:
ActiveSheet.Cells(ActiveCell.row, 243).Activate
Verwende ich dagegen:
ActiveSheet.Cells(ActiveCell.row, 242).Activate
dann scrollt die Tabelle nach rechts bis Spalte 242 und die...
08.10.2008 20:14:00
Thread-ID: 1015161
18 Beiträge
Anzeige
ActiveCell.Offset(0, 1).Value
Franz

Hallo Leute,
vermutlich eine blöde Frage, aber ich komme nicht auf die Lösung.
Wie kann ich den Inhalt von ActiveCell.Offset(0, 1).Value ---- es ist ein Datum ---- um 1 Tag bzw.
1 Monat erhöhen. Rechne ich + 1, so erhöht sich das Jahr.
Grummel, grummel....
Danke für die Hilf...
20.06.2009 17:19:12
Thread-ID: 1083105
3 Beiträge
Set rngOld = ActiveCell in Row ändern möglich?
Karsten

Hallo,
ich möchte einen Befehl abändern.
Dim rngOld As Range
Set rngOld = ActiveCell
Range("a10").Select
rngOld.Select
End Sub
Er soll jetzt so ausgeführt werden, dass nicht die alte Zelle sondern in der alten Zeile die Zelle in der 10 Spalte angesteuert wird. Geht...
27.07.2009 17:08:37
Thread-ID: 1091676
11 Beiträge
Anzeige
Range.Address und ActiveCell.Offset
Urmila

Hallo zusammen,
ich habe ein Problem, und zwar...versuche ich einen Range.Address in Cells umzuwandeln, also durch den Makro bekomme ich z.B. $A$14, diese würde ich gerne in Cells(1, 14) umwandeln, oder ihr könnt mir eine Alternative vorschlagen......
Ich habe einen Code der mir die "ro...
10.09.2010 07:19:06
Thread-ID: 1176758
3 Beiträge
Offset - ActiveCell
Philipp

Hi!Bitte um eure Hilfe:
Ich muss aus der Quelltabelle einen Wert auslesen, diesen dann in eine andere Tabelle eintragen (der Teil läuft OK), dann in der Quelltabelle die ActiveCell eine Zeile nach unten verschieben, diese neue ActiveCell kopieren, zur Zieltabelle wechseln, ... einfügen, ......
16.05.2002 15:01:37
Thread-ID: 121392
2 Beiträge
ActiveCell.offset Bug, Combobox range
Max

Hallo liebe Com,
Ich arbeite seit geraumer Zeit mit Excel und Vba.
Zurzeit bin ich in einen kleinen Projekt mit dem ich einen "Generator" schreibe.
Hier zuerst einmal ein paar Bilder und Daten.
http://i51.tinypic.com/33cu2kp.jpg
ist die Userform
http://i53.tinypic.com/r7...
22.06.2011 21:54:31
Thread-ID: 1219374
10 Beiträge
ActiveCell.Row ( Spalte dann von : bis ) ?
:

Hallo Forum,
bräuchte bitte eure Hilfe bei einer VB Anweisung
ich möchte gerne an irgendeiner Stelle meiner ganzen Anweisungen folgendes anweisen
Bei der aktiven gewählten Zeile soll dann Spalte 2 bis 9 leer sein ( ="" ) ( .clearcontent ? )
habe folgendes probiert : ' Cells(Act...
20.10.2011 10:31:33
Thread-ID: 1234656
4 Beiträge
kopieren von ActiveCell.Row zu Target
ActiveCell.Row

Hallo Excelspezis
bräuchte bitte eine passende Anweisung für folgende Problematik
Target.Row , 4 = Cells(ActiveCell.Row,4).Value oder so ähnlich, bzw. richtig eben.
Hier fehlt mir die richtige Definition wie man Target als aktiveZeile,Spalte 4 angibt.
Das ganze soll dann im "B...
26.10.2011 16:47:19
Thread-ID: 1235531
7 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
17
5
2
10
2
2
1
9
3
6
10
3
27
12
7
9
3
5
3
10
2
5
5
2
3