Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
188to192
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
188to192
188to192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

in Spalte bis zum nachsten "X"

in Spalte bis zum nachsten "X"
04.12.2002 07:39:22
Felix
Hallo,
habe eine Spalte, wo an unterschiedlichen Stellen ein "X" steht.

Ich möchte das ein Makro immer zum nächsten "X" springt.
Die Spalte ist begrenzt von A100 bis A200.
Wenn das Makro das letzte "X" erreicht hat soll eine MsgBox
erscheinen.

Kann mir jemand dabei helfen?
Leider bin ich noch zu unerfahren um mir ein entsprechendes Makro zu zimmern.
Habe auch schon einmal im Archiv und in der Recherche etwas entsprechendes
gesucht, kann aber nichts finden.


6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: in Spalte bis zum nachsten "X"
04.12.2002 07:53:47
Heinz A. Wankmüller
Hallo Felix,
was soll denn passieren, wenn zum nächsten X gesprungen wird? Wenn dann gleich weiter zum nächsten X gesprungen wird, ist es dasselbe, als wenn du gleich zum letzten springst.

Gruß
Heinz

Re: in Spalte bis zum nachsten "X"
04.12.2002 08:03:22
Steffen D
Hallo Felix,

schau dir dat mal an:


Sub test()
With Worksheets(1).Range("a1:a500")
Set c = .Find("x", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Select
antwort = MsgBox("Weitersuchen?", Buttons:=vbOKCancel, Title:="Suchen nach x")
If antwort = vbCancel Then Exit Sub
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
MsgBox "Suche beendet!"
End Sub


Gruss
Steffen D

Anzeige
Bereich anpassen
04.12.2002 08:05:34
Steffen D
achso, den Bereich musst du dann natürlich anpassen,
(in der zweiten zeile)

Gruss
Steffen

Re: in Spalte bis zum nachsten "X"
04.12.2002 11:01:39
Felix
Hallo Ihr Beiden,
vielen Dank für Eure Bemühungen.

Zu Heinz seiner Frage.

Neben dem "X" in der Nachbarspalte soll durch das Makro ein Eintrag erfolgen. In A99 soll ebenfalls ein Eintrag erfolgen (in welcher Zeile er sich befindet.) Also wenn er sich in Zeile A101 befindet soll in A99 eine 1 eingetragen werden und wenn er in sich in Zeile A113 befindet soll in A99 eine 13 eingetragen werden.

Wenn jemand hier noch helfen mag?
Sonst werde ich kommende Nacht ersteinmal mit dem vorangegangenen Code mein Glück versuchen.

Also erstmal Danke.

Gruß
Felix



Anzeige
Re: in Spalte bis zum nachsten "X"
04.12.2002 11:58:41
Steffen D
Hallo Felix,

beschreibe bitte dein Problem genauer!
Was kommt in die Nachbarspalte rein? immer das gleiche?
und A99? die Zeile ändert sich doch immer, soll es immer überschrieben werden?

hier mal ein ansatz:

Sub test()
With Worksheets(1).Range("A100:A200")
Set c = .Find("x", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Select
Range("B" & Selection.Row).Value = "Mein Eintrag"
Range("A99").Value = Selection.Row - 100
antwort = MsgBox("Weitersuchen?", Buttons:=vbOKCancel, Title:="Suchen nach x")
If antwort = vbCancel Then Exit Sub
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
MsgBox "Suche beendet!"
End Sub


Gruss
Steffen D

Anzeige
Re: in Spalte bis zum nachsten "X"
04.12.2002 15:12:48
Felix
Hallo Steffen und andere EXCEL-Freunde,
Steffen erst einmal Vielen Dank für Deine nette Unterstützung.

Es ist immer der selbe Eintrag der neben "X" gemacht werden soll. z.B. eine "1".

Dieses Makro wird durch 5 Objekte angesteuert. Jedes Objekt führt einen eigenen anderen Eintrag aus. Es werden neben dem "X" also die Noten von 1-5 eingetragen, je nach dem welches Objekt man anklickt.

Die MsgBox mit weitersuchen brauche ich, glaube ich, wohl nicht.
Da er erst weitersuchen soll, wenn das Objekt neu angeklickt wird. Dann soll er aber nicht mehr ein altes "X" aufsuchen sondern nur die abwärtsgerichteten "X" suchen. Wenn er beim letzten "X" steht und wiederum das Makro ausgelöst wird, soll die Meldung "Ende" erscheinen.

Und A99 ist ein Steuerungsfeld über die die Position der Frage, die benotet werden soll, ermittelt wird. Sie ist für diesen Code daher nur bedingt von Wichtigkeit. Neben den "X" en stehen nämlich auch noch Fragen. Die Frage die gerade benotet werden soll, steht immer in einer Zelle, die mit Hilfe eine Funktionsformel (Index(A100:A200;A99) ermittel wird.

Ich hoffe, das diese Beschreibung genau genug ist, ist Ziemlich schwierig solche Vorgänge verständlich zu schreiben..

Vielen Dank
Gruß
Felix

Anzeige

299 Forumthreads zu ähnlichen Themen

Spalte bis zur nächsten freien Zelle?
Tom

Hi,
großes Problem für mich kleines wahrscheinlich fr euch.
Hab eine Tabelle in der ich automatisch hinter den letzten Eintrag etwas einfügen möchte. Leider brauch ich unten eine Summen, also wäre das die letzte Zeile mit Füllung. ich will sozusagen die erste freie Zeile nach den befüll...
12.08.2008 15:12:47
Thread-ID: 1001232
3 Beiträge
Anzeige
aufrunden bis zu nächstem listeneintrag
lukas

moin moin die excelianer!
habe wiedermal ein kleines problem, bei welchem ihr mir behilflich sein könntet...
ich habe eine liste, die in etwa so aussieht: (die werte können variieren!)
45
100
300
500
...
jetzt habe ich noch eine zahl, die ich gerne jeweils zur nä...
08.09.2008 13:09:00
Thread-ID: 1008127
10 Beiträge
Range bis zu einer bstimmten Zeile kopieren
Joachim

Hi,
ich habe eine Sub, um Daten eines Ranges von einem Tabellenblatt zu einem andren Tabellenblatt zu kopieren:
Sub Kopieren() Dim intS As Integer Sheets("Daten einlesen").Range("C2:H150").Copy With Sheets("Übersicht") intS = .Cells(4, Columns.Count).End(xlToLeft).Column .Cells(5, in...
19.09.2008 20:57:12
Thread-ID: 1011139
5 Beiträge
Anzeige
Subtraktion bis Wert erreicht (Zirkelbezug)
Tom

Hallo,
ich probiere mich seit 2 Tagen mit der Problematik Zirkelbezug. Ich möchte diese Funktion benutzen, um so lange Werte aus einigen Zellen zu subtrahieren, bis der in einer anderen Zelle definierte maximale Wert erreicht ist.
Hintergrund:
Für eine gesonderte Auszahlung steht mi...
27.10.2008 11:54:40
Thread-ID: 1019597
4 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Alle Leerzeichen bis rechts von Ziffer löschen
Ziffer

Hallo Freaks,
ich habe in der Spalte B 1700 Zeilen, die mit Artikelbezeichnungen folgenden Musters befüllt sind:

Mein Ziel ist es, alle Leerzeichen bis auf zwei nach der letzten Ziffer und dem ersten Buchstaben zu löschen. Also ab der 11 Stelle bis zur 16 Stelle alle Leerzeichen bi...
13.12.2008 21:41:36
Thread-ID: 1032708
3 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Alee Zeilen bis auf bestimmte löschen
Silke

Hallo,
in meiner Liste muss ich Zählerstände den Kostenstellen zuordnen.
https://www.herber.de/bbs/user/59754.xls
Ich importiere eine TXT-Datei, die ich vom Drucker exportiere ins Excel. Leider sind viele Zeile dabei, die ich für die Auswertung nicht brauche.
In meiner Liste se...
25.02.2009 11:09:02
Thread-ID: 1053794
13 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
2
16
9
4
4
3
7
2
2
12
1
3
3
9
2
2
2
3
4
1
2
11
3
2
5