Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For iCounter = 1 To 41 usw.....

Forumthread: For iCounter = 1 To 41 usw.....

For iCounter = 1 To 41 usw.....
26.10.2004 17:59:17
Peter S.
Hallo liebe Helfer,
nachstehend ein Auszug aus einem Code, der zum Füllen einer Tabelle mit Daten dient, dieser Auszug schreibt bei nichtausgefüllten Felder ein "n.b." = nicht bekannt in die Tabelle....soweit, so gut, funktioniert alles bestens:
For iCounter = 1 To 41
If UserForm2.Controls("TextBox" & iCounter).Value = "" Then
UserForm2.Controls("TextBox" & iCounter).Value = "n.b."
jetzt möchte ich aber zwischendurch doch ein paar Felder leer lassen und wollte dies folgendermaßen lösen:
For iCounter = 1 To 20, 22 To 30, 23 To 41
jedoch mag er das nicht annehmen....wie muss ich das ausdrücken?
Danke Euch für Anregungen
Peter S.
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: For iCounter = 1 To 41 usw.....
26.10.2004 18:04:17
Ulf
Drei Einzelschleifen oder Ausnahmen definieren, eine Zählvariable kannst du nicht unterbrechen.
Ulf
Ok ich werde es probieren mit Ausnahmen:)
26.10.2004 18:11:34
Peter S.
Danke einstweilen
AW: For iCounter = 1 To 41 usw.....
26.10.2004 18:19:56
ChrisL
Hi Peter
falls Ausnahme = 21, 31, 41 usw. 

Sub t()
Dim iCounter As Byte
For iCounter = 1 To 100
If iCounter > 20 And iCounter = CLng(Left(iCounter, 1) & 1) Then iCounter = iCounter + 1
'Cells(iCounter, 1) = "notabene"
Next iCounter
End Sub


Gruss
Chris
Anzeige
Hallo CrisL....leider nicht so regelmäßig
26.10.2004 18:23:44
Peter S.
Hallo Chris,
is das erste Mal Spalte 8 und dann 11, 14, 17, 20 usw.
Danke
Peter S.
AW: Hallo CrisL....leider nicht so regelmäßig
26.10.2004 18:38:12
ChrisL
Hi Peter

Sub t()
Dim iCounter As Byte
For iCounter = 1 To 100
If iCounter > 7 And iCounter Mod 3 = 2 Then iCounter = iCounter + 1
'Cells(iCounter, 1) = "notabene"
Next iCounter
End Sub

Gruss
Chris
Anzeige
AW: Hallo CrisL....leider nicht so regelmäßig
26.10.2004 18:39:36
ChrisL
oder... 

Sub t()
Dim iCounter As Byte
For iCounter = 8 To 100 step 3
'Cells(iCounter, 1) = "notabene"
Next iCounter
End Sub

AW: For iCounter = 1 To 41 usw.....
26.10.2004 18:23:05
ypsilon
hi Peter,
es gibt da eine funktion die deine anforderung perfekt erfüllt:

Sub TeilCode()
For Ind = 1 To 3
For getchoice = Choose(Ind, 1, 20, 22, 30, 23, 41) To Choose(Ind + 2, 1, 20, 22, 30, 23, 41)
'hier_kommt_dein_Code_rein
Next getchoice
Next Ind
End Sub

cu Micha
Anzeige
AW: For iCounter = 1 To 41 usw.....
26.10.2004 18:25:03
yps
sorry,
so natürlich

Sub TeilCode()
For Ind = 1 To 6 Step 2
For getchoice = Choose(Ind, 1, 20, 22, 30, 23, 41) To Choose(Ind + 1, 1, 20, 22, 30, 23, 41)
'hier_kommt_dein_Code_rein
Next getchoice
Next Ind
End Sub

cu Micha
choose
26.10.2004 18:42:28
Reinhard
Hallo Micha,
so hast du es gemeint?:

Sub TeilCode()
For Ind = 1 To 3
For getchoice = Choose(Ind, 1, 22, 23) To Choose(Ind, 20, 30, 41)
MsgBox getchoice
'hier_kommt_dein_Code_rein
Next getchoice
Next Ind
End Sub

Gruß
Reinhard
Anzeige
AW: choose
26.10.2004 19:22:12
yps
hi Reinhard,
nö, ich meinte schon das hier:
For Ind = 1 To 6 Step 2
For getchoice = Choose(Ind, 1, 20, 22, 30, 23, 41) To Choose(Ind + 1, 1, 20, 22, 30, 23, 41)
macht aber dasselbe wie deins ;-)
cu Micha
Wow Y....das sieht gut aus...
26.10.2004 18:25:37
Peter S.
Hallo Y,
danke erstmal....den probiere ich morgen früh gleich mal aus und werde dann berichten
Bis morgen
Peter S.
Anzeige
AW: Wow Y....das sieht gut aus...
27.10.2004 17:26:08
Peter S.
Hallo Ihr Lieben,
habe die verschiedenen Möglichkeiten ausprobiert; aber alle bewegen sich innerhalb einer Spalte, meine Datensätze sind jedoch in Zeilen aufgebaut;
hatte heute vom Chef aus leider was anderes zu tun; ich werde morgen mal den ganzen Code posten.
Danke einstweilen
Peter S.
Anzeige
;

Forumthreads zu verwandten Themen

1 Klick in Excel = Serienbrief (Word)
Marcus

Hallo zusammen,
ich habe da mal wieder ein kleines Problem!
Ich habe eine Exceltabelle mit Kundendaten. Diese muss ich in Einzelfällen anschreiben! Ich habe einen Worddokument, in dass ein paar Daten von einem Kunden eingetragen werden sollen.
Nun meine frage:
Gibt es eine Mögl...
03.09.2008 13:09:49
Thread-ID: 1007086
3 Beiträge
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Anzeige
Kann =mid(A1,1,1) nicht mit SVERWEIS verbinden
maxx_1985

Hallo liebe Excelexperten,
mein Problem:
14000 ich mache daraus eine 1. Mit der Formel =(A1,1,1)
Diese 1 steht nun in B1. Jetzt moechte ich mich darauf beziehen und eine IF/THEN Formel einbauen. Excel macht das aber nicht. Nur wenn ich in B1 die 1 MANEULL reinschreibe, greift meine...
07.11.2008 18:46:00
Thread-ID: 1022785
5 Beiträge
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
select range if cellvalue =1
patrick

Hallo ich hab wieder eine frage an die excel und VBA profis:
ich möchte gerne ein makro dass mir einen bereich markiert wenn in einer bestimmten spalte ein bestimmter wert drin steht.
dh: zb:
wenn in einer zelle der spalte C85 eine "1" steht dann markiere den bereich B85:J85 oder w...
04.03.2009 11:16:37
Thread-ID: 1056258
5 Beiträge
ActiveSheet.CircleInvalid = null dann makro
Benjamin

hallo zusammen,
ich habe folgendes problem.
ich habe ein excel sheet mit mehren datenüberprüfungen versehen. Also z.B. in einer Spalte darf nur Datum grösser heute eingegeben werden, in einer anderen darf die maximale Textlänge 5 Zeichen nicht übertragen usw.
Das funktioniert auch g...
07.03.2009 17:23:28
Thread-ID: 1057716
6 Beiträge
select range if cellvalue =1
patrick

Hallo ich hab wieder eine frage an die excel und VBA profis:
ich möchte gerne ein makro dass mir einen bereich markiert wenn in einer bestimmten spalte ein bestimmter wert drin steht.
dh: zb:
wenn in einer zelle der spalte C85 eine "1" steht dann markiere den bereich B85:J85 oder we...
09.03.2009 15:47:00
Thread-ID: 1058202
13 Beiträge
Sortierung mit Kopfzeie trotz "Header:=x1Guess"
ROlf

Hallo Leutz,
Folgender Codeauschnitt:
Columns("A:AP").EntireColumn.AutoFit
'************************
'TABELLE SORTIEREN
'************************
If Hauptmenu.OptionButton4.Value = True Then
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("D2") _
09.04.2009 12:57:22
Thread-ID: 1067975
8 Beiträge
wenn Änderung Zellinhalt dann Macro
Joachim

Hallo,
ich hab 2 Tabellen (Eintrag und Statistik) und 2 Diagramme (Fehler und TelFax). Bei der Tabelle Statistik habe ich folgenden Code eingetragen:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D2:G30")) Is Nothing Then Call DiaFehlerFormat Call...
07.05.2009 14:02:59
Thread-ID: 1073604
12 Beiträge
Wert aus Zelle x in Zelle y, wenn Zelle Y =1
Wolfgang

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
08.05.2009 11:11:52
Thread-ID: 1073830
3 Beiträge
Werte von Zelle x übernehmen, wenn Zellwert=1
Zelle

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
11.05.2009 15:53:03
Thread-ID: 1074391
4 Beiträge
Anzeige
Wenn "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige