Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1708to1712
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
1708to1712
1708to1712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingungen aus Textboxen bestimmten Zelle

Bedingungen aus Textboxen bestimmten Zelle
21.08.2019 10:47:09
Miez
Hallo Zusammen,
ich habe ein Problem und finde einfach keine Lösung. Habe auch auf der Suche im Internet nichts ähnliches gefunden.
Ich habe eine UserForm, in der sich eine Combobox und drei Textboxen befinden.
In der Combobox wird ein Projektausgewählt oder ein neues rein geschrieben.
Textbox1 soll das Regal bestimmen (01-03)
Textbox2 soll die Reihe im Regal bestimmen (01-10)
Textbox3 soll das Fach in der Reihe bestimmen (01-04)
Wenn nun Textbox1=01 und Textbox2=01 und Textbox3=01, dann soll in Zelle B12 der Inhalt der Combobox geschrieben werden.
oder
Wenn nun Textbox1=02 und Textbox2=07 und Textbox3=03, dann soll in Zelle H06 der Inhalt der Combobox geschrieben werden.
Wenn in der Zelle schon was steht, sollte eine Fehlermeldung kommen.
Danke schon mal im Voraus
Userbild

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingungen aus Textboxen bestimmten Zelle
21.08.2019 10:54:38
Daniel
Hi
im Prinzip so:
dim s as long
dim z as long
z = 10 - Textbox2.text + 3
s = (Textbox1.text - 1) * 4 + Textbox3.text + 1
if Cells(z, s) = "" then
Cells(z, s) = Combobox1.Value
Else
Msgbox "Fach belegt"
End if
Gruß Daniel
AW: Bedingungen aus Textboxen bestimmten Zelle
21.08.2019 11:03:11
Miez
Vielen lieben Dank,
das ging ja unglaublich schnell.
Und funktioniert einwandfrei.
AW: Bedingungen aus Textboxen bestimmten Zelle
21.08.2019 11:28:52
Miez
Wäre es auch möglich eine Abfrage zu machen, indem man ein Projekt auswählt und dann der Ort (Regal,Reihe;Fach) in einem Textfeld wiedergegeben wird?
AW: Bedingungen aus Textboxen bestimmten Zelle
21.08.2019 11:47:43
Daniel
Hi
kann man machen nach dem Prinzip
set Zelle = Range(hier den Zellbereich des Regals).find(what:=Projektname)
if not Zelle is nothing then
RegalNummer = Intersect(Rows(zeile mit Regalnummern), Zelle.EntireColumn).MergeArea(1)
Reihe = Intersect(Columns(spalte mit Reihennummer), Zelle.EntireRow).Value
Fach = Intersect(Rows(Zeile mit Fachnummern), Zelle.EntireColumn).Value
else
msgbox "Projekt nicht vorhanden"
end if
gruß Daniel
Anzeige
AW: Bedingungen aus Textboxen bestimmten Zelle
21.08.2019 12:15:22
Miez
Was ist, wenn das Projekt in mehreren Fächern ist?
Kann man sich auch mehrere Orte ausgeben lassen?
z.B. Projekt "Schiene"
Dazu befindet sich an 3 Orten in dem Regal etwas.
Kann man das über eine Listbox ausgeben lassen?
also wie das mit einem Ort geht, wäre mir klar.
Muss bei mehreren eine Schleife eingebaut werden?
AW: Bedingungen aus Textboxen bestimmten Zelle
21.08.2019 12:22:21
Daniel
ja, muss man mit einer Schleife machen.
entweder mit .FindNext bis man wieder bei der ersten Fundstelle angekommen ist (die muss man sich merken) oder du machst eine Schleife über alle Zellen des Regal und fügst den Speicherort der Listbox hinzu, wenn der Inhalt der Zelle dem gesuchten Wert entspricht.
Gruß Daniel
Anzeige

304 Forumthreads zu ähnlichen Themen

Formel wenn dann zellvergleich Text
Karel

Hallo Forum,
wie kann ich Zellwert C mit Zellwert E vergleichen ausgaben in Zelle A
wenn C und D Leer dsnn A auch Leer
Tabelle1

 ABCDE2Ausgabe Textwert Textwert3Offen Bezahlt Offen4Bezahlt Bezahlt Bezahlt5Offen Bezahlt  6Of...
28.11.2008 20:04:52
Thread-ID: 1028782
5 Beiträge
Anzeige
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Anzeige
Textteil aus Zelle als Wenn Formel
Beni

Schönen Samstag Morgen
Trotz suche und Ansätzen im Archiv bekomme ich das nicht zum Laufen:
Zeile I4 enthält O:\Hugo\Geräte\"Hersteller"\Backöfen\ESC 100.pdf
In Zelle A4 sollte der "Hersteller" erscheinen, (z.B Miele, Electrolux)
Gescheitert bin ich mit dem Versuch:
=WENN(...
12.09.2009 07:04:58
Thread-ID: 1102152
3 Beiträge
Wenn die aktive Zelle in letzter Zeile dann Makro
Karsten

Hallo,
Kann mir jemand bei folgeden Befehl helfen:
Wenn die aktive Zelle in der letzten Zeile (also unten, über dem Tabellennamen) des sichtbaren Bereichs steht, soll Makro1 ausgeführt werden. Wenn nicht, dann weiter.
Danke für eure Hilfe.
Gruß
Karsten
11.11.2009 15:07:54
Thread-ID: 1116229
3 Beiträge
wenn text in zelle, dann...
flo

Hallo zusammen,
ich habe ein kleines Problem mit einer Formel und würde mich freuen, wenn mir jemand von euch die Lösung erklären könnte. Es geht um Folgendes:
Ich habe zwei Zellen: Wenn in der einen Zelle (z.B. Zelle A1) ein Text steht, dann soll in der anderen (z.B. A2) "JA" stehen.
27.01.2010 10:45:51
Thread-ID: 1133330
6 Beiträge
wenn nicht eine Textbox mehr als 0, dann Msg.Box
Wolfgang

Hallo,
ich versuche folgendes Problem in den Griff zu bekommen, schaffe es aber mit verschied. Ansätzen nicht:
Ich würde gerne bei Klicken einer Schaltfläche zunächst überprüft haben, ob nicht zumindest eine Textbox von den Textboxes13-16 mehr als 0 enthält, wenn nein, Abbruch. Wäre für...
22.02.2010 18:36:04
Thread-ID: 1140459
11 Beiträge
Abfrage, ob in Textbox ein "." enthalten ist
tom_r

Hi,
ich möchte prüfen, ob im Textfeld einer UF ein "." enthalten ist und dann soll entsprechend verzwiegt werden. Aber irgendwie hat das nicht hin. Mit "." passiert nichts, nur wenn der Inhalt keinen "." hat, bekomm ich ein Ergebnis.
so sieht meine Prüfung aus
Select Case InStr(1, A...
16.03.2010 13:00:20
Thread-ID: 1146203
5 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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
2
3
4
2
2
5
10
4
3
5
1
2
5
4
4
2
2
13
2
2
2
5
5