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

Wenn Eintrag in Textbox dann Eintrag in Tabelle1

Forumthread: Wenn Eintrag in Textbox dann Eintrag in Tabelle1

Wenn Eintrag in Textbox dann Eintrag in Tabelle1
Josef
Hallo!
Ein Datum in der Textbox1 soll im Tabellenblatt1, Spalte B gesucht werden.
Ist das Datum vorhanden, dann sollen die Daten, welche ab der Spalte C in einer Reihe eingetragen sind in die vorhandenen TexBoxen 2,3,3,4,5 eingetragen werden.
Wie würde hier bitte der VBA Code lauten?
Danke
Josef
Anzeige
AW: Wenn Eintrag in Textbox dann Eintrag in Tabell
11.02.2006 23:55:15
Josef
Hallo Josef!
Wenn es sich um ein UserFormular handelt, dann z.B. so!
Private Sub CommandButton1_Click()
Dim rngFind As Range
Dim intCount As Integer

If Not IsDate(TextBox1) Then Exit Sub

With Sheets("Tabelle1")
  
  Set rngFind = .Range("B:B").Find(what:=CDbl(TextBox1), LookAt:=xlWhole, LookIn:=xlValues)
  
  If Not rngFind Is Nothing Then
    
    For intCount = 2 To 6
      Controls("TextBox" & intCount) = .Cells(rngFind.Row, intCount + 1)
    Next
    
  End If
  
  Set rngFind = Nothing
  
End With
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Wenn Eintrag in Textbox dann Eintrag in Tabell
12.02.2006 00:08:46
Josef
Hallo Sepp!
Danke für Deine Antwort.
Habe alles so gemacht. Code reinkopiert. Leider funktioniert es nicht.
Vielleicht habe ich mich nicht richtig ausgedrückt.
Also wenn das Datum in Spalte B z.B. Zeile 3 gefunden wird, dann sollen die Werte von C3,D3,E3,F3 usw. in die jeweils vorhandenen Textboxen eingetragen werden.
Josef
Anzeige
AW: Wenn Eintrag in Textbox dann Eintrag in Tabell
12.02.2006 00:18:50
Josef
Hallo Namensvetter!
Genau das macht mein Code!!
Steht in der Spalte B ein "richtiges" Datum?
Wie ist es Formatiert?
Kannst du die Tabelle mit dem UF hochladen?
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Wenn Eintrag in Textbox dann Eintrag in Tabell
12.02.2006 00:36:21
Josef
Hallo Josef!
Ändere diese Zeile!

Set rngFind = .Range("B:B").Find(what:=CDate(TextBox1), LookAt:=xlWhole, LookIn:=xlValues)

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Wenn Eintrag in Textbox dann Eintrag in Tabell
12.02.2006 00:43:54
Josef
Hallo Sepp!
Leider kein Erfolg. Es erfolgen keine Einträge
Josef
AW: Wenn Eintrag in Textbox dann Eintrag in Tabell
12.02.2006 00:46:48
Josef
Hallo Josef!
Das kann ich nicht glauben, ich habe es ja in deiner Tabelle probiert!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Wenn Eintrag in Textbox dann Eintrag in Tabell
12.02.2006 00:51:17
Josef
Hallo Sepp!
Dann weiss ich nicht was ich falsch mache.
Ich habe die ausgebesserte Version nochmals hochgeladen.
https://www.herber.de/bbs/user/30941.xls
Josef
AW: Wenn Eintrag in Textbox dann Eintrag in Tabell
12.02.2006 01:00:15
Josef
Hallo Josef!
Also wenn ich das Datum (06.04.2006) auswähle und den CommandButton klicke,
dann werden die Werte in den Textboxen angezeigt!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Wenn Eintrag in Textbox dann Eintrag in Tabell
12.02.2006 01:06:23
Josef
Hallo Sepp!
Könnte es vielleicht an der Excel Version liegen. zuhause arbeite ich mit Excel 2000.
Ich schwörs hoch und heilig, bei mir bleibt alles leer.
josef
AW: Wenn Eintrag in Textbox dann Eintrag in Tabell
12.02.2006 01:09:14
Josef
Hallo Josef!
Ich habe hier xl2000 und ich weis, das 2003 manchmal Bockig ist!
Probier noch statt

LookIn:=xlValues



LookIn:=xlFormulas

Sonst habe ich im Moment keine weitere Idee!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Wenn Eintrag in Textbox dann Eintrag in Tabell
12.02.2006 01:15:24
Josef
Hallo Sepp!
Jetzt passt es. Ich bedanke mich herzlich für Deine Geduld und Deine Mühe.Schönes Wochenende noch.
Josef
;

Forumthreads zu verwandten Themen

Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
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
Wenn Zelle enthält, dann
Rudolph

Hallo,
ich möchte mit .xls meine Kontodaten auswerten. Die Kontoauszugsdaten stehen in Spalte "D" auf dem Sheet "Kontodaten" Im selben Sheet Spalte "E" steht der Betrag. Das Sheet "Bezüge" enthält Namensfelder (z.B. "Auto" mit einer Auflistung der Tankstellen, KFZ-Versicherung o.ä.; "Lebens...
23.05.2009 14:30:40
Thread-ID: 1076853
5 Beiträge
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 Beiträge
Wenn Dann Funktion mit zählen wenn
Christian

Hallo zusammen,
ich brauche eine Funktion, die es mir ermöglicht, in einem Datenblatt erst nach einem bestimmten Wert zu suchen und dann zum gefundenen Wert einen weiteren Wert zu suchen und diese dann in der Anzahl zusammen zu zählen.
Bisher dachte ich, ich komme so zu meinem Ziel:
...
07.08.2009 10:26:38
Thread-ID: 1094218
3 Beiträge
Stichwort in Zelle B7,dann zusammzählen VBA
Wolfgang

Hallo,
im Tabellenblatt "Start" befinden sich in Zelle B7 bis B23 bestimmte Stichwörter, die auch in Tabelle "Daten", Spalte H vorkommen. Ich würde gerne zu jedem Stichwort zwei Abfragen klären:
Beispiel:
(Abfrage1)
1. Stichwort aus Zelle B7 kommt in Spalte H (Tabelle "Daten") v...
06.10.2009 19:49:07
Thread-ID: 1107632
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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