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

Formular abfüllen unter der Bedingung, dass..

Forumthread: Formular abfüllen unter der Bedingung, dass..

Formular abfüllen unter der Bedingung, dass..
11.04.2016 13:19:10
Kina
Hallo zusammen,
Ich habe ein Formular erstellt, dessen Inhalt an mehrere Orte abgefüllt wird. In ein abc.xlsx soll der Inhalt des Formulars nur abgefüllt werden, unter der Bedingung, dass in der Combobox cbbOriginal der Wert "Yes" ausgewählt wurde. Steht dort der Wert "No" wird der Inhalt des Formulars in abc.xlsx gar nicht abgefüllt.
Wie lautet der korrekt formulierte Code für die Bedingung?
If .Value cbbOriginal= Yes
then
Workbooks.Open Filename:= "G:\...\...\abc.xls"
Windows("abc.xls").Activate
Set wkbKontakt = ActiveWorkbook
Set wksKontakt = wkbKontakt.Sheets("Pending")
Rows("5:5").Select
Selection.Insert Shift:=xlDown
With Me.txtDate
If .Value "" Then wksKontakt.Range("A5").Value = Me.txtDate.Value
End With
With Me.cbbType
If .ListIndex -1 Then wksKontakt.Range("I5").Value = Me.cbbType.Value
End With
If .Value cbbOriginal= NO
then do nothing

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formular abfüllen unter der Bedingung, dass..
11.04.2016 14:09:51
Werner
Hallo,
If Me.cbbOriginal.Value = "Yes" Then
Workbooks.Open Filename:= "G:\...\...\abc.xls"
Windows("abc.xls").Activate
Set wkbKontakt = ActiveWorkbook
Set wksKontakt = wkbKontakt.Sheets("Pending")
Rows("5:5").Select
Selection.Insert Shift:=xlDown
End If
Gruß Werner

Anzeige
AW: Formular abfüllen unter der Bedingung, dass..
11.04.2016 14:42:34
Kina
Lieben Dank Werner!
Ich habe Dein End with wie folgt zu Ende gedacht kriege dann aber eine Fehlermeldung "Fehler beim Kompilieren: Erwartet: Anweisungsende"
End If Me.cbbOriginal.Value = "NO"
End With
Gruss Kina

AW: Formular abfüllen unter der Bedingung, dass..
11.04.2016 15:22:07
Kina
Hat sich erledigt, habe bemerkt, dass Dein End If selbst das Ende ist. Herzlichen Dank, es funktioniert!!!

Anzeige
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
11.04.2016 16:24:51
Werner
;

Forumthreads zu verwandten Themen

In derTextBox das Format ändern
edie

Hallo zusammen,
würde gerne, wenn es möglich wäre, das Datum in der TextBox im Format TT.MM.YYYY
zurückschreibe in die Zelle A1 im Format YYYY-MM-TT 00:00 z. B. 2008-07-01 00:00
Wenn es möglich ist dann wie?
Hat jemand eine Idee und kann weiter helfen?
Danke im Voraus.
...
13.08.2008 15:27:49
Thread-ID: 1001560
3 Beiträge
Fehler in der Formel
Baywatch

Hi
ich habe eine Formel und die tut es leider nicht. Wenn ich MIN durch Max ersetze klappt es, aber warum bei min NIcht?
Vielleicht findet jemand den Denkfehler?
{=(BEREICH.VERSCHIEBEN(Daten!$A$1;SUMME(WENN(Daten!D1:D5002=MIN(WENN(Daten!F1:F5002="M"; Daten!D1:D5002;0));ZEILE(Date...
15.08.2008 15:59:00
Thread-ID: 1002235
8 Beiträge
Anzeige
Datum in der Userform formatieren
Nadine

Hallo,
ich habe im VBA eine Userform erstellt. In einem der Textfelder soll ein Datum stehen.
Wenn Buchstaben in dieser Textbox stehen, soll keine Übertrabung in die -von mir vorgesehen- Excelzelle erfolgen.
Bitte um HILFE!!!
Vielen Dank
Nadine
18.08.2008 16:17:00
Thread-ID: 1002660
7 Beiträge
Bearbeiten/Formatieren der x-Achse in Diagramm
Mayr,

Hallo zusammen,
ich hab ein Problem beim Formatieren der X-Achse in meinem Diagramm...
Und zwar soll es eine Zeitachse sein und um 4 Uhr anfangen und um 4 Uhr enden.... also nicht von 0-24Uhr.
Das stellt aber jetzt für mich ein Problem dar, da ich wnicht weiß wie ich excel sag das e...
15.10.2008 14:03:00
Thread-ID: 1016558
2 Beiträge
Formel - Anzeige der gefilterten Inhalte
Rocky

Hallo Excelfreunde und zweiäugigen unter den Blinden und Einäugigen,
ich möchte gern einen dynamischen "Querfilter" basteln. Mein Ansatz bisher: Ich kopieren die Tabelle und transportiere diese. dann wird in jede Zelle folgende Formel geschrieben:
=WENN(INDIREKT(ADRESSE(SPALTE()+0;ZEILE...
28.11.2008 08:53:12
Thread-ID: 1028554
4 Beiträge
Fehler in der Verkettung der Formel ?
Selma

Hallo Leute,
ich habe in Spalte E und F mit Formeln die Zelleninhalte verkettet. Mit einem Makro markiere ich ab Zeile 3 die Zellen in Spalte E und F und erzeugte eine Datei move.bat die danach ausgeführt wird.
In Spalte E stehen die Ordnername die erstellt werden und in Spalte F die D...
21.12.2008 13:20:00
Thread-ID: 1034590
2 Beiträge
Anzeige
Inhalt einer Zelle in anderer Zelle als Formel
Elias

Guten Morgen,
ich bin auf der Suche nach einer Lösung für folgenden Sachverhalt.
In einer Tabelle wird aus dem Inhalt verschiedener Zellen über Verketten eine Zeichenfolge gebildet, die in einer anderen Tabelle als Formel herhalten soll.
(Kurzes) Beispiel, das Original ist furchtbar...
11.01.2009 06:01:22
Thread-ID: 1038572
6 Beiträge
Anzeige
Per Userform oder Inputbox Daten selektieren
Bernd


Hallo Freaks,
ich habe im Archiv gesucht, aber leider nichts gefunden.
Ich suche ein Makro, in das ich per Userform (oder Inputbox?) einen Begriff (Namen) eingebe, dann VBA in das Tabellenblatt 1 geht, in Spalte G den Suchbegriff (Namen) sucht und dann als Ergebnis der Suche die...
05.02.2009 16:36:55
Thread-ID: 1047421
6 Beiträge
Per Userform oder Inputbox Daten selektieren
Bernd


Hallo Freaks,
ich habe im Archiv gesucht, aber leider nichts gefunden.
Ich suche ein Makro, in das ich per Userform (oder Inputbox?) einen Begriff (Namen) eingebe, dann VBA in das Tabellenblatt 1 geht, in Spalte G den Suchbegriff (Namen) sucht und dann als Ergebnis der Suche die...
05.02.2009 17:06:43
Thread-ID: 1047434
3 Beiträge
Anzeige
mehrzeilige Eingabe in Inputbox oder UserForm
Jakob

Hallo,
ich stehe vor folgenden Problem und suche eine Lösung.
Ich habe die Zellen C19-I25 miteinnander verbunden. Nun möchte ich aus einer SAP-Anwendung einen mehrzeiligen Text kopieren (Strg+c). Wenn ich direkt die oben genannten Zellen anklicke und dort mit Strg+v versuche den Text ei...
18.02.2009 14:34:00
Thread-ID: 1051819
5 Beiträge
untereinanderstehende Werte via VBA umformatieren
Harry

Hallo zusammen,
ich habe folgendes Problem, das ich gerne mit VBA lösen möchte:
Und zwar habe ich eine Tabelle, in der untereinander in verschiedenen Spalten Werte stehen, die ich auf einem weiteren Tabellenblatt hintereinander ausgeben möchte.
Ich benötige dazu ein Makro, das bspw....
30.03.2009 19:56:28
Thread-ID: 1065412
5 Beiträge
Bilder einfügen ander Tabelle Formel Reaktion
Karel

Hallo Exelianer,
Habe untestehende Code zum bilder einfügen von Hajo's Seite.
meine Frage:
- wie kan ich Bilder einfugen wobei die Bildernamen in ein andere tabelle liegen (Tabelle1) bereich A8:A100
- bildname komen in Zelle Set RaBereich = Range("A10,C10,E10,G10") Tabelle (bild...
11.06.2009 20:52:07
Thread-ID: 1080841
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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