Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
612to616
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
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

if else schleifen

if else schleifen
17.05.2005 14:00:58
sören
Hallo,
ich muss euch leider nochmal nerven.
Das Script was ich mir gebastelt habe läuft ja schon ganz gut.
Script:
With ActiveSheet.PageSetup
dokumentenart = InputBox("Dokumentenart eingeben!", "Dokumentenart")
artikelnummer = InputBox("Artikelnummer eingeben!", "Artikelnummer")
formblattnummer = InputBox("Formblattnummer eingeben!", "Formblatnummer")
datum = InputBox("Das Datum eingeben!", "Datumseingabe", Format(Date, "dd.mm.yyyy"))
.LeftFooter = dokumentenart & "-" & artikelnummer & " " & formblattnummer & "/" & datum & "/PE"
.CenterFooter = " erstellt(PE)_____geprüft(AL)/Datum_____Freigabe(GL)/Datum_____"
.RightFooter = ""
End With
End Sub
Ich möchte jetzt nur noch gerne ein Abfrage haben die fragt ob der mittlere Teil in der Fußzeile (.CenterFooter =) eingefügt werden soll, oder weg gelassen werden soll.
Wie schreibe ich das.
Habe leider noch nicht so die vba Kentnisse, aber eine Seite gefunden wo man das gut lernen kann.
Nur leider muss das hier schnell fertig werde... :(
Wäre deshalb über Hilfe sehr dankbar
Vielen Dank

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: if else schleifen
17.05.2005 14:05:27
MichaV
Hi,

If MsgBox("Soll Center Footer eingefügt werden?", vbQuestion + vbYesNo, "Frage") = vbYes Then
ActiveSheet.PageSetup.CenterFooter = " bla bla "
Else
ActiveSheet.PageSetup.CenterFooter = " "
End If

Gruß- Micha
AW: Fußzeile anlegen - Ja/Nein - Wahl
17.05.2005 14:32:23
Luc:-?
Hallo Sören,
schlage vor, wieder InputBox zu benutzen, aber etwas anspruchsvoller! Als 3.Argument kann nämlich ein Defaultwert angegeben wdn. Der kann dann nach Belieben verwendet oder verworfen (ersetzt/gelöscht) wdn. 

.CenterFooter = InputBox("Bestätigen oder Löschen!", "Fußzeile", _
" erstellt(PE)_____geprüft(AL)/Datum_____Freigabe(GL)/Datum_____")

Wenn der Text zu lang ist, kannst du auch mit einer MsgBox fragen, ob mit oder ohne Fußtext gedruckt wdn soll [am besten Tasten Ja/Nein/Abbruch einstellen, zB: m=MsgBox(...,...,...)] und mit if m=vbYes then...elseif m=vbNo then...else...endif auswerten.
Gruß Luc :-?
PS: if else schleifen gibt es nicht!
Anzeige
AW: Fußzeile anlegen - Ja/Nein - Wahl
17.05.2005 15:00:30
sören
mh ich habe es jetzt so gemacht:

Sub fusszeile()
With ActiveSheet.PageSetup
dokumentenart = InputBox("Dokumentenart eingeben!", "Dokumentenart")
artikelnummer = InputBox("Artikelnummer eingeben!", "Artikelnummer")
formblattnummer = InputBox("Formblattnummer eingeben!", "Formblatnummer")
datum = InputBox("Das Datum eingeben!", "Datumseingabe", Format(Date, "dd.mm.yyyy"))
If MsgBox("Sollen die Unterschriften eingefügt werden?", vbQuestion + vbYesNo, "Frage") = vbYes Then
ActiveSheet.PageSetup.CenterFooter = "                         erstellt(PE)_____geprüft(AL)/Datum_____Freigabe(GL)/Datum_____"
Else
ActiveSheet.PageSetup.CenterFooter = ""
End If
.LeftFooter = dokumentenart & "-" & artikelnummer & " " & formblattnummer & "/" & datum & "/PE"
.RightFooter = ""
End With
End Sub

aber dann bekomme ich immer einen Laufzeitfehler 1004:
Die CenterFooter Eigenschaft des Page Setup Objekts kann nicht festgelegt werden..
warum ?
Anzeige
AW: Fußzeile anlegen - Ja/Nein - Wahl
17.05.2005 15:16:11
MichaV
Hi,
das ActiveSheet.PageSetup solltest Du im If- Else- Block weglassen (sorry- mein Fehler).
Schreibe nur 2 x .CenterFooter=...
Aber daran liegt es wohl nicht, bei mir funzt es so und so.
Vielleicht hat Luc ja noch eine Idee.
Gruss- Micha
AW: Fußzeile anlegen - Ja/Nein - Wahl
sören
hast recht, wie du sagstest. wenn ich das weg lasse geht es auch nicht...
AW: Fußzeile anlegen - Ja/Nein - Wahl
17.05.2005 16:12:57
Luc:-?
Hallo Beide,
kann ich auch nicht nachvollziehen, fkt auch bei mir (xl'00). Liegt möglicherweise an xl'97. Mal so probieren wie ich geschrieben habe:
1 Zeile m=MsgBox(...)
nächste Zeile if m=vbYes then...
An den vielen Leerzchn (sind ja vielleicht nicht wirklich da, jedenfalls überflüssig) sollte es auch nicht liegen, obwohl die Fehlermeldung mit Zuweisungsproblemen zu tun zu haben scheint. Vielleicht hast du beim Text doch was vergessen? Sonst probier halt die InputBox. Als Default kannst du ja auch "Unterschriften" festlegen und wenn die InputBox das zurückgibt, centerFooter den langen Text zuordnen. Wenn das alles nicht hilft bzw alternativ könntest du Text oder Leer auch einer Variablen zuordnen und CenterFooter außerhalb der if...then...else-Konstruktion mit deren Wert belegen. Kann aber auch gut sein, dass das grundsätzlich nicht geht. Könnte bei xl'95 so gewesen sein. Dann müsstest du mit 2 PageFormaten arbeiten, d.h. jeweils alles komplett aufbauen, nicht nur Teile austauschen.
Gruß Luc :-?
Anzeige
AW: Fußzeile anlegen - Ja/Nein - Wahl
17.05.2005 17:06:28
Martin
Hallo,
ich konnte den Fehler nur für LeftFooter reproduzieren, und zwar wenn der eingegebene Text sehr lang ist. Vielleicht kannst Du das nochmal testen.
Gruß
Martin Beck
AW: Fußzeile anlegen - Ja/Nein - Wahl
18.05.2005 07:42:20
sören
hallo,
ich kam heute morgen isn Büro und habe es nochmal getestet dann ging es?
öhm naja komische sache
aber vielen dank :)

299 Forumthreads zu ähnlichen Themen

If Then mit mehreren Schritten
Pfannen-Meister

Guten Morgen,
leider ist mein Betreff etwas unglücklich formuliert, aber ich weiß nicht, wie ich mein Problem in wenigen Worten zusammen fassen soll:
In VBA nutze ich eine If Then Anweisung. Ist die Bedingungen erfüllt, so soll er mehrer Schritte abarbeiten. Aber wie sage ich ihm, daß...
13.08.2008 10:34:00
Thread-ID: 1001416
5 Beiträge
Anzeige
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Zeilen einfärben mit mehreren Bedingungen
donald

Hallo Forum,
ich bräuchte eure Hilfe. Ich möchte folgendes erreichen:
wenn in spalte B "Ja"/"Nein" reingeschrieben wird, soll Excel die Zeile entsprechend einfärben (Grün/gelb). Das ist an sich noch gar nicht das Problem. In Spalte C wird ebenfalls eine Ja/Nein-Abfrage erwartet, so da...
22.10.2008 12:03:56
Thread-ID: 1018296
6 Beiträge
Anzeige
If then else für Anfänger
Gunter

Hallo Zusammen,
wenn ich eine If then else Abfrage habe z.B:
If ComboBox2.Value = "Trailer" And TextBox10.Value = "" Then _
Label36.Visible = True
TextBox10.BackColor = &HFF&
If ComboBox2.Value = "Spot" And TextBox11.Value = "" Then _
Label37.Visible = True
T...
30.11.2008 12:49:00
Thread-ID: 1029010
9 Beiträge
IF/ELSE in Excel (Porto anhand Gewicht berechnen)
Thomas

Hallo zusammen,
ich erstelle gerade ein Bestellformular mit Excel 2007 und möchte ein IF/ELSE Abfrage erstellen, die im Großen und Ganzen anhand eines bekannten Gewichtes die Preisliste von DHL abbildet.
Das ganze würde ich so oder so ähnlich formulieren:
if ($gewicht_kg >...
30.01.2009 12:55:49
Thread-ID: 1045369
5 Beiträge
If und else in Label.caption
Leon

Hi Zusammen
Was mache da falsch, daß Range I11 immer angezeigt wird obwohl nichts drin steht. Falls Range I11 grösser als 0 dann I11 zeigen ansonsten H11.
Private Sub userform_initialize() If Sheets("Wesentlichkeit").Range("I11") >= 0 Then Label20.Caption = Sheets("Wesentlichkeit")...
31.01.2009 22:28:06
Thread-ID: 1045773
3 Beiträge
Sumif mit 2 Bedingungen
HeinzS

Hallo zusammen, kann mir jemand sagen, wie ich die formel richtig aufbauen muß:
Aufgabenstellung: Addiere alle Zahlen aus dem Bereich A1:A100, welche entweder =123 sind? Habe es mit Sumif versucht, scheitere aber an der 2ten Bedingung.
Danke für eure Hilfe!
Lg, Heinz
04.02.2009 10:26:00
Thread-ID: 1046913
4 Beiträge
Zählenwenn mit mehreren Bedingungen
Thomy

Hallo Excelprofis
Ich habe 2 Spalten. In der 1. befinden sich Zahlen und in der 2. Namen.
Welche Formel muss ich verwenden, wenn ich die Anzahl Zahlen in der Spalte A ermitteln will, die grösser als 2 und kleiner als 6 sind und in der Spalte B der Name Meier steht.
Ich bin mal bis...
13.03.2009 15:38:03
Thread-ID: 1059916
2 Beiträge

Links zu Excel-Dialogen

InputBox

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
4
2
3
5
5
8
4
2
3
1
3
8
1
3
4
4
9
3
5
7
12
2
4
8
9