Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon seebaer_1 vom 25.02.2020, 12:06 Options
VBA + schleifen-problem
hallo,
ich habe folgendes makro:
lfound = false
xzeile = 1
xspalte = 1
Do until lfound
xzeile = xzeile + 1
'Anweisungen
If .Cells(xzeile,xspalte).Value = "331" Then
'Anweisungen
End If
If .Cells(xzeile,xspalte).Value = "311" Then
'Anweisungen
End If
If .Cells(xzeile,xspalte).Value = "301" Then
lfound = True
End If
If .Cells(xzeile,xspalte).Value = "EXEC" Then
lfound = True
End If
Loop
Nun ich möchte folgendes erreichen.
Wenn .Value = "331" ist dann soll die schleife wiederholt werden, allerdings soll nun die If-Anweisung .Value = "331" nicht mehr durchgeführt werden, nur noch die .Value ="301" und .Value = "311" und .Value = "EXEC" anweisungen.
analoges möchte ich für .Value = "311"
ist das möglich, und wie geht das, mit GoTo?
danke
MfG
seebaer
ich habe folgendes makro:
lfound = false
xzeile = 1
xspalte = 1
Do until lfound
xzeile = xzeile + 1
'Anweisungen
If .Cells(xzeile,xspalte).Value = "331" Then
'Anweisungen
End If
If .Cells(xzeile,xspalte).Value = "311" Then
'Anweisungen
End If
If .Cells(xzeile,xspalte).Value = "301" Then
lfound = True
End If
If .Cells(xzeile,xspalte).Value = "EXEC" Then
lfound = True
End If
Loop
Nun ich möchte folgendes erreichen.
Wenn .Value = "331" ist dann soll die schleife wiederholt werden, allerdings soll nun die If-Anweisung .Value = "331" nicht mehr durchgeführt werden, nur noch die .Value ="301" und .Value = "311" und .Value = "EXEC" anweisungen.
analoges möchte ich für .Value = "311"
ist das möglich, und wie geht das, mit GoTo?
danke
MfG
seebaer
Antwort 1 von M.O. vom 25.02.2020, 13:04 Options
Hallo seebaer,
hier mal mein Vorschlag:
Gruß
M.O.
hier mal mein Vorschlag:
lfound = false
xzeile = 1
xspalte = 1
[b]z1 = 0
z2 = 0[/b]
Do until lfound
xzeile = xzeile + 1
'Anweisungen
If .Cells(xzeile,xspalte).Value = "331" [b]And z1 = 0[/b] Then
'Anweisungen
[b]z1 = 1[/b]
End If
If .Cells(xzeile,xspalte).Value = "311" [b]And z2 = 0[/b] Then
'Anweisungen
[b]z2 = 1[/b]
End If
If .Cells(xzeile,xspalte).Value = "301" Then
lfound = True
End If
If .Cells(xzeile,xspalte).Value = "EXEC" Then
lfound = True
End If
Loop
Gruß
M.O.
Antwort 2 von seebaer_1 vom 25.02.2020, 13:11 Options
hallo,
danke für deine antwort, so könnte das klappen, ahb zur zeit nur viele probs auf einmal und deshalb wird eine probe noch eine weile dauern, aber besten dank, schaut gut aus
mfg
seebaer
danke für deine antwort, so könnte das klappen, ahb zur zeit nur viele probs auf einmal und deshalb wird eine probe noch eine weile dauern, aber besten dank, schaut gut aus
mfg
seebaer
Antwort 3 von seebaer_1 vom 25.02.2020, 13:40 Options
hallo nochmal,
also dien vorschlag passt sowiet, danke dafür.
hätte noch eine ganz andere frage:
kann man von zellen in einem Excel sheet zurückverfolgen woher (also aus welcher zeile eines makros) der wert der zelle stammt. Vorraussetzung dafür ist natürlich dass der wert auch tatsächlich aus einem makro stammt.
grund dafür ist: ich habe ein makro über 2 module und möchte einige fehler suchen, dafür wäre es hilfreich, wenn ich gleich angezeigt bekomme welche zeile aus dem makro den wert der jeweiligen zelle liefert.
hat da jemand eine idee? ist das überhaup möglich?
danke
mfg
seebaer
also dien vorschlag passt sowiet, danke dafür.
hätte noch eine ganz andere frage:
kann man von zellen in einem Excel sheet zurückverfolgen woher (also aus welcher zeile eines makros) der wert der zelle stammt. Vorraussetzung dafür ist natürlich dass der wert auch tatsächlich aus einem makro stammt.
grund dafür ist: ich habe ein makro über 2 module und möchte einige fehler suchen, dafür wäre es hilfreich, wenn ich gleich angezeigt bekomme welche zeile aus dem makro den wert der jeweiligen zelle liefert.
hat da jemand eine idee? ist das überhaup möglich?
danke
mfg
seebaer
Ähnliche Themen
VBA Problem mit auswahlliste?
Fragenkatalog 22.01.2007 - 104 Hits - 6 Antworten
Visual Basic & Exel + Schleifen
Kennyger 08.03.2007 - 167 Hits - 8 Antworten
VBA und "-00"
Trudi 03.07.2007 - 26 Hits - 2 Antworten
VBA: Variabelen und Zellbezüge
Trudi 04.07.2007 - 92 Hits - 4 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
