Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen ausfüllen bis nächsten bestimmten wort!!!

Forumthread: Zellen ausfüllen bis nächsten bestimmten wort!!!

Zellen ausfüllen bis nächsten bestimmten wort!!!
Anja
hallo Profis!
Ich bin am Verzweifeln!
Möchte die Zellen mit "L" ausfüllen ab dem ersten gefundenen "Total_*" bis nächsten. Das klappt aber nicht so ganz.
Im Beispiel... es sollte also in der nächsten Zeile wo "Total_*" gefunden wird geschaut, ob da eine "L" vorhanden ist.
Wenn ja... dann ab nächsten zeile wie z.b. in der Spalte D in der Zeile 18 eine "L" steht sollte ab D19 bis D23 (also bis zu vorletzte Zeile wo nächstes "Total_* in der spalte A steht.
Genau so: ab G25 bis G30.
https://www.herber.de/bbs/user/31035.xls
Ich würde mich super freuen über eure Hilfe.
Danke und viele Grüße
Anja
Anzeige
AW: Zellen ausfüllen bis nächsten bestimmten wort!!!
14.02.2006 14:28:41
ingo
Hi,
ich würd ja gerne helfen, aber drück dich mal bitte ein wenig deutlicher aus.
Gruß Ingo
AW: Zellen ausfüllen bis nächsten bestimmten wort!!!
14.02.2006 14:28:51
yogi
Tach Anja
der Button verweist auf ein Makro, das nicht vorhanden ist. ('...\new\DSS non-ABAP Planning_new_02_02.xls'!Kalender_calculation)
Ohne dieses Makro lässt sich nur sehr schwer sagen, was schief läuft.
Gruss
yogi
Anzeige
AW: Zellen ausfüllen bis nächsten bestimmten wort!!!
14.02.2006 15:22:11
yogi
Tach Anja
versuchs damit:

Sub probe()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim Suchbereich As Range
Dim Zelle As Range
Dim zeile_ist As Integer
Dim col_ist As Integer
zeile_end_new_0 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
nColsCnt_0 = ActiveSheet.Cells(6, Columns.Count).End(xlToLeft).Column
' suchbereich nur benütze Zellen
Set Suchbereich = Range(Cells(11, "A"), Cells(zeile_end_new_0, "A"))
' schleife über alle benützten kolonen
For col_ist = 3 To nColsCnt_0
For Each Zelle In Suchbereich
' prüfen ob zelle =Total_*
If Zelle.Value Like "Total_*" Then
' ja
zeile_ist = Zelle.Row + 1
If Cells(zeile_ist, col_ist) = "L" Then
' zelle enthält "L"
Do Until Cells(zeile_ist, "A") Like "Total_*"
' solange "L" einfüllen, bis nächste Zelle =Total_*
Cells(zeile_ist, col_ist) = "L"
zeile_ist = zeile_ist + 1
Loop'  Cells(zeile_ist, "A") Like "Total_*"
End If'  Cells(zeile_ist, col_ist) = "L"
End If'  Zelle.Value Like "Total_*"
Next'  Each Zelle In Suchbereich
Next'  col_ist = 3 To nColsCnt_0
End Sub
' probe
Gruss
yogi
Anzeige
AW: Zellen ausfüllen bis nächsten bestimmten wort!!!
14.02.2006 15:41:59
Anja
Hallo Yogi,
du bist einfach Toll :)
Danke!!!!! du hast mir sehr geholfen... :)
viele Grüße
Anja

Forumthreads zu verwandten Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Teil bis zum ersten blank
walter

Moin moin,
ich habe Textfelder, xxxxxx yyy cc, wobei ich nur die ersten Zeichen mit zum ersten Blank per Teil() separieren möchte.
Kann mir jemand helfen und sagen, wie ich die Formel aufbauen muß, sodaß der Extract mit zum ersten balnk verläuft ?
Danke im Voraus
mfg
Walter...
06.04.2009 11:55:39
Thread-ID: 1067075
3 Beiträge
Von rechts kopieren bis zum ersten ";"
Flo

Eine kurze Frage,
ich habe Zellen in meiner Tabelle,
in denen mehrere Werte stehen. Diese Werte sind durch ";" getrennt.
Also z.B. Zelle A1: "1;2;3"
Nun will ich, dass es mir in einer anderen Zelle nur die letzte Ziffer, also in diesem Fall 3 anzeigt.
Ich habe es mit der fo...
08.04.2009 15:19:13
Thread-ID: 1067754
16 Beiträge
Daten aus Zelle per CSV nur bedingt auslesen
Heiko

Hallöchen,
ich habe eine Datendatei in CSV mit Simikolon getrennt ohne Umbrüche.
Diese Lade ich auf eine Seite hoch, die mir die jeweiligen Zellen innerhalb einer Datenbank ausfüllt.
Meine Frage wäre jetzt, ob es eine Möglichkeit gibt, durch eingaben innerhalb der CSV-Datei den Text...
13.06.2009 20:14:31
Thread-ID: 1081318
4 Beiträge
Wert aus Zelle herauslesen
Johannes

Hallo zusammen,
weiß jemand, wie man eine Zahl aus einer Zelle mittels einer Formel herauslesen kann und mit dieser auch weiter rechnen kann?
Beispiel:
In Zelle A1 steht (das ' signalsiert den Zellanfang und -ende):
' 600 Haushaltswaren'
Jetzt möchte in A2 nur den W...
28.09.2009 11:51:34
Thread-ID: 1105996
3 Beiträge
Anzeige
Springen bis zum ersten leeren Feld
Gerd

Guten Morgen,
ich möchte gerne in der Spalte A von oben das erste Feld suchen, das leer ist. Dann soll dieses Feld markiert werden. Es wäre mir eine große Hilfe, wenn ich nicht immer von Hand dieses Feld suchen müßte.
Dies ist ein super Forum, macht weiter so.
Viele Grüße
Gerd
22.02.2010 08:50:36
Thread-ID: 1140209
7 Beiträge
Zahlen aus Textzelle auslesen
Heike

Guten Tag an die Excel-Profis,
nach erfolgloser Recherche und vergeblichen Tests von Formeln (siehe Datei) aus diesem Forum und auch anderen Excel-Tipps-Seiten, bitte ich um Eure Hilfe.
Aus einer Spalte mit ca. 2000 Materialnummern, die aus Text-Zahlen-Zeichenkombinationen bestehen, müs...
21.04.2010 20:22:08
Thread-ID: 1153195
9 Beiträge
Leerzeichen nach Text in Zelle löschen
Helmut

Liebe Forenuser,
ich habe noch eine Frage für heute:
Wie kann ich die Leerzeichen nach einem Text in allen Zellen in einem Tabellenblatt löschen?
Genauer:
Wenn ich z.B. in eine Zelle hineingehe, dann stehe ich oft nicht genau nach dem letzten Zeichen in der Zelle, sondern weiter...
07.05.2010 13:54:48
Thread-ID: 1156080
3 Beiträge
Anzeige
Werte bis zum ersten ; in Zelle löschen
Helmut

Hallo Forenuser,
ein kleines Problem:
Wie kann ich alle Zeichen bis zum ersten Strichpunkt in einer Zelle löschen?
Also:
200;3AB;5V
soll werden:
3AB;5V
Oder:
0-3400;8ZU;9;9
soll werden:
8ZU;9;9
Danke im Voraus!
LG, Helmut
10.05.2010 14:12:57
Thread-ID: 1156436
8 Beiträge
Anzeige
Werte bis zum ersten ; in Zelle löschen
Helmut

Hallo Forenuser,
ein kleines Problem:
Wie kann ich alle Zeichen bis zum ersten Strichpunkt in einer Zelle löschen?
Also:
200;3AB;5V
soll werden:
3AB;5V
Oder:
0-3400;8ZU;9;9
soll werden:
8ZU;9;9
Danke im Voraus!
LG, Helmut
10.05.2010 14:25:02
Thread-ID: 1156441
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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