Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1200to1204
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
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ActiveCell.Offset(1, 0).Select

ActiveCell.Offset(1, 0).Select
Sandra
Hallo zusammen,
ich habe in einem großem Makro - nicht selbst geschrieben - u.a. die Zeile ActiveCell.Offset(1, 0).Select
Das funktioniert auch alles prima. Wo es nicht funktioniert, ist, wenn der Bereich gefiltert ist. Hier wird nicht die nächste gefilterte Zeile ansprungen, sondern das Makro läuft z.B. Zeile 1,2,3,4,5 usw.
Kann man dem Makro auch sagen, springe in die nächste Zeile des ausgesuchten Filters (also z.B.
von Zeile 5 direkt in Zeile 22 und dann in Zeile 139....)
Danke schön und viele Grüße
Sandra

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Nächste Zeile in gefilterter Liste markieren
25.02.2011 16:32:36
NoNet
Hallo Sandra,
hier ein Ansatz, der zwar nicht sonderlich elegant ist, aber immerhin funktioniert :
Sub AutofilterNaechsteZeileMarkieren()
Dim rngBereich As Range, lngZ As Long
Set rngBereich = ActiveCell.EntireColumn
For lngZ = ActiveCell.Row + 1 To rngBereich.Cells(rngBereich.Rows.Count, 1).End(xlUp).Row
If Not Rows(lngZ).Hidden Then
Cells(lngZ, rngBereich.Column).Select
lngZ = rngBereich.Cells(rngBereich.Rows.Count, 1).End(xlUp).Row
End If
Next
End Sub
Gruß, NoNet
AW: Nächste Zeile in gefilterter Liste markieren
25.02.2011 17:52:50
Sandra
Hallo NoNet,
vielen Dank für Deine Hilfe!
Ich werde mal schauen, ob ich das in das Makro eingebaut bekomme.
Viele Grüße
Sandra
Anzeige
Noch eine Frage
28.02.2011 22:01:46
Sandra
Hallo NoNet, hallo die anderen,
der Code funktioniert - allerdings noch mit der Einschränkung, dass ich das Makro immer wieder neu aufrufen muss.
Wie müsste der Code aussehen, wenn das Makro in einer Schleife alle gefilterten Zeilen abarbeitet?
Vielleicht einfach nur mit der Aufgabe, in die Zeile das Wort "Test" schreiben, damit ich besser nachvollziehen kann, wo ich etwas ändern muss?
ActiveCell.Offset(0, 1).Value = "Test"
VIelen Dank!
Liebe GRüße
Sandra
AW: Noch eine Frage
28.02.2011 23:24:46
mpb
Hallo Sandra,
ich nehme mal an, in Zeile 1 stehen Spaltenüberschriften und der zu filternde Bereich beginnt ab Zeile 2. Füge eine Hilfsspalte hinzu, z.B. Spalte E, in die für gefilterte Zeilen "Test" geschirben werden soll, gib der Spalte eine Überschrift und lasse alle anderen Zellen leer. Führe dann folgendes Makro aus:
Sub Gefilterte_Zeilen()
z = Range("A65536").End(xlUp).Row
Range(Cells(2, 5), Cells(z, 5)).SpecialCells(xlCellTypeVisible) = "Test"
End Sub
Wenn Du statt Spalte E eine anderen Spalte wählst, musst Du in der dritten Zeile des Codes die 5 anpassen.
Gruß
Martin
Anzeige
AW: Noch eine Frage
01.03.2011 22:06:26
Sandra
Hallo Martin, hallod die anderen,
das Makro funktioniert soweit. Allerdings will ich ja eigentlich im gefilterten Bereich bestimmte Änderungen in einer Hostanwendung vornehmen.
Soll heissen: Ich will nur die Zeilen (Kundennummern) verarbeiten, die gefiltert sind. Das geht aber nur in einer Schleife von oben nach unten.
Also erst suche die nächste gefilterte Zeile, dann mach die Änderung in der Hostanwendung (mein Makro) und dann such die nächste gefilterte Zeile.
VIelleicht ist mein Problem jetzt etwas klarer geworden.
Vielen lieben Dank für Eure Hilfe!
Viele Grüße
Sandra
Anzeige
AW: Noch eine Frage
01.03.2011 22:14:08
Josef

Hallo Sandra,
vielleicht solltst du mal den Code deines Originalmakros posten.
Zusätzlich würde es helfen, wenn du beschreibst, wo sich eine gefilterte Liste befindet und auf welche Spalte sich das Makro beziehen soll.

Gruß Sepp

AW: Noch eine Frage
02.03.2011 12:24:36
Sandra
Hallo Sepp,
so sähe das Makro aus:
Dim Mldg, Titel, Voreinstellung, Wert1
Mldg = "Zeile angeben wo das Makro anfangen soll" ' Aufforderung festlegen.
Titel = "Zeilenanfang" ' Titel festlegen.
Voreinstellung = "2" ' Voreinstellung festlegen.
' Meldung, Titel und Standardwert anzeigen.
Wert1 = InputBox(Mldg, Titel, Voreinstellung)
If Wert1 = "" Then
GoTo Zeile2
End If
Range("a2").Select
c = Wert1 - 2
ActiveCell.Offset(c, 0).Select
Do Until ActiveCell.Value = ""
i = i + 1
If i = 500 Then
ActiveWorkbook.Save
i = 1
Else
End If
--------
.......bestimmte Daten werden in eine Hostanwendung ein- bzw. ausgelesen........
--------
Range("Ausgelesen2").Cells(ActiveCell.Row, 1).Value = Format(Date & " " & Time)
Cells(ActiveCell.Row + 1, 1).Select
Loop
Zeile2:
MsgBox "Die Abfrage wurde abgebrochen", vbInformation, "Hinweis!"
Exit Sub
End Sub
Kannst Du damit was anfangen? Also eigentlich müsste die Zeile Cells(ActiveCell.Row + 1, 1).Select
durch was anderes (nehme die nächste Zeile des gefilterten Bereich) ersetzt werden.
Vielen lieben Dank!
Sandra
Anzeige
AW: Noch eine Frage
02.03.2011 17:02:11
Josef

Hallo Sandra,
also ausser das sinnlos irgendwelche Zellen selektiert werden, kann man aus dem Code nicht erkennen,was da eigentlich geschehen soll!
im Prinzip muss es etwa so laufen 

Dim rng As Range, rngVisible As Range
On Error Resume Next
Set rngVisible = Range("A1").AutoFilterRange.Columns(1).SpecialCells(xlCellTypeVisible)
On Error Goro 0
If Not rngVisible Is Nothing Then
For Each rng In rngVisible
'nur was soll jetzt mit rng geschehen?
rng.Select 'Select und Activate sind zu 99,9% unnötig und unprofessionell
Next
End If

Gruß Sepp

Anzeige
AW: Noch eine Frage
02.03.2011 20:27:26
Sandra
Hallo Sepp,
vermutlich hast Du recht und ich habe mich total verrant.
Danke trotzdem für Deine Hilfe!
Schönen Abend!
Sandra

40 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

Links zu Excel-Dialogen

InputBox

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