Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
776to780
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
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Platzhalter in VBA?---Bitte um Hilfe

Platzhalter in VBA?---Bitte um Hilfe
03.07.2006 16:59:35
Peter
Hallo liebe Helfer,
ich möchte in VBA in einen Code eine Bedingung integrieren, die sich auf die jeweils 2.Spalte in einer Zeile bezieht. Der Inhalt dieser Zellen ist immer wie folgt WP123456 oder eine andere Ziffernfolge. Wie muss ich den Syntax für die Variablen, also einen Platzhalter für die Ziffernfolgen schreiben und stimmt der Ansatz, wenn dann next A? Der Code sieht vorläufig so aus:
For A = 10 To 63
z = Range("B" & A).Row
ComboBox3.Value = Cells(z, 3)
if cells(z, 2) "WP" & ? then
next A
else: Cells(z, 3) = TextBox1.Value
Cells(z, 4) = TextBox2.Value
If ComboBox2.Value = "ÖkonomDG28Var1D" Then
Cells(z, 2) = TextBox3.Value
Cells(z, 5) = TextBox4.Value
'Cells(z, 6) = TextBox5.Value
End If
end if
Next A
Vielen Dank für Hilfe
Peter S

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Platzhalter in VBA?---Bitte um Hilfe
03.07.2006 17:12:34
ChrisL
Hallo Peter
Probier mal...
If Left(Cells(z, 2), 2) = "WP" Then
End If
next A brauch es nicht. Wenn die Bedingung nicht erfüllt ist, springt der Code automatisch zu End If und macht damit mit Next weiter.
Gruss
Chris
Hallo Chris...Perfekt....Vielen Dank o.T.
03.07.2006 17:29:51
Peter
.
AW: Hallo Chris...Perfekt....Vielen Dank o.T.
04.07.2006 07:38:05
Matthias
Hallo Peter,
ein Next-Befehl in einer If-Bedingung ist etwas unübersichtlich. Mein Vorschlag:

For A = 10 To 63
z = Range("B" & A).Row
ComboBox3.Value = Cells(z, 3)
If Left(Cells(z, 2), 2) = "WP" Then
Cells(z, 3) = TextBox1.Value
Cells(z, 4) = TextBox2.Value
If ComboBox2.Value = "ÖkonomDG28Var1D" Then
Cells(z, 2) = TextBox3.Value
Cells(z, 5) = TextBox4.Value
'Cells(z, 6) = TextBox5.Value
End If
End If
Next A

Gruß Matthias
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige