Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten von einer Eingabemaske in Tabelle übernehmen

Forumthread: Daten von einer Eingabemaske in Tabelle übernehmen

Daten von einer Eingabemaske in Tabelle übernehmen
21.04.2007 15:09:00
einer
Hallo liebe VBA-Profis,
ich wäre euch wirklich sehr dankbar, wenn mir von euch noch jemand helfen könnte.
Ich habe hier ein Excel/VBA (schon dank eurer Hilfe) erstellt.
Sie enthält eine Eingabemaske, wo nur Sätze übertragen werden, die befüllt wurden.
Ich bräuchte jedoch noch eine Prüfung, ob die Anzahl der befüllten Zeile in einen gewissen Bereich einer Tabelle (zB Zeile 5-15) passen.
Ich habe das Problem genauer in diesem Excel beschrieben:
https://www.herber.de/bbs/user/41828.xls
Vielen herzlichen Dank für Eure Hilfe!!
lg
spillo

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Daten von einer Eingabemaske in Tabelle überne
22.04.2007 22:17:34
einer
Hallo Spillo,
kommt mir irgendwie bekannt vor dieses Formular :)
Ich hab einige Prozeduren und das Formular angepasst.
Die Zeilenprüfung ist jetzt etwas flexibler. Bei zuwenig Zeilen wird für eine vollständige Rezeptur wird eine weitere Meldung angezeigt mit Info zu den Restzeilen.
Im Formular wird dann zusätzlich die Zahl der jeweils noch verfügbaren Zeilen angezeigt
https://www.herber.de/bbs/user/41944.xls
Gruß
Franz

Anzeige
AW: Daten von einer Eingabemaske in Tabelle überne
23.04.2007 23:20:30
einer
Hallo fcs (Franz),
schön mal wieder mal was von dir zu lesen.
*gg* Das Formular kommt dir bekannt vor? *grübel* :-)
Vielen Dank für deine Antwort bzw. Lösung zu meinem Problem!! Echt Super!
Wäre es eventuell noch möglich, wenn die verfügbaren Zeilen erschöpft sind, dass man die Eingabemaske nicht bestätigen kann solange die verfügbaren Zellen größer/gleich 0 sind? Das wäre dann echt perfekt.
Vielen Dank und schöne Grüße
Franz

Anzeige
AW: Daten von einer Eingabemaske in Tabelle überne
24.04.2007 00:08:00
einer
Hallo
ergänze in den folgenden beiden Prozeduren des Userforms die mit '################ markierten Zeilen. Dann wird mit der rot/grün Umschaltung des Infofeldes der Ok-Button blockiert/freigegeben.
Gruß
Franz

' Intialisieren des User-Forms vor der Anzeige
Private Sub UserForm_Initialize()
Dim iNr() As Integer, strBeschreibung() As String, dblMenge() As Double, dblPercent() As  _
Double
Dim rngZellen As Range, iI As Integer, iJ As Integer
Dim Element As Control
With Application
tbIstmenge.Value = 0
tbProzentIst.Value = 0
tbRestmenge.Value = .Range("Gesamtmenge")
Me.Caption = "Zusammenstellung Rezept Nr " & .Range("RezeptNr")
'Restzeilen anzeigen wenn Platz in Liste nicht für vollständiges Rezept ausreicht
If Restzeilen = -1 Then
Me.lblfreiZeile.Visible = False
Else
Me.lblfreiZeile.Caption = "restliche freie Zeilen: " & Restzeilen - 1
Me.lblfreiZeile.Visible = True
If Restzeilen - 1  AnzInhalt Then
Element.Visible = False
Else
Element.Visible = True
End If
Case Else
If Left(Element.Name, 8) = "lbTitel2" And AnzInhalt  0 Then iAnz = iAnz + 1
Next iI
Me.tbIstmenge.Value = dblIstmenge
'lbl für Restzeilen aktualisieren
If Restzeilen > 0 Then
Me.lblfreiZeile.Caption = "restliche freie Zeilen: " & Restzeilen - iAnz - 1
If Restzeilen - iAnz - 1 >= 0 Then
Me.lblfreiZeile.BackColor = 49152      'grün
Me.cbOK.Enabled = True  '###################################
Else
Me.lblfreiZeile.BackColor = 255            'rot
Me.cbOK.Enabled = False  '###################################
End If
End If
'Neue Restmenge Berechnen
Me.tbRestmenge.Value = Format(CDbl(Me.tbSollmenge.Value) - dblIstmenge, strFormatM)
'Neue IstProzent berechnen
Me.tbProzentIst = Format(dblIstmenge / CDbl(Me.tbSollmenge.Value) * 100, strFormatP)
'Prozentwerte der Inhaltsstoffe neu berechnen
For iI = 1 To AnzInhalt
Me.Controls("tbProzent" & Format(iI, "00")).Value = Format(CDbl(Me.Controls("tbMenge" &  _
Format(iI, "00")).Value) _
/ CDbl(Me.tbSollmenge.Value) * 100, strFormatP)
Next
End Sub


Anzeige
AW: Daten von einer Eingabemaske in Tabelle überne
29.04.2007 09:59:00
einer
Hallo!
Supi. Alles prima! Vielen Dank für die Hilfe!!
lg
;

Forumthreads zu verwandten Themen

Daten aus Tabellenblatt kopieren
Jochen

Hi,
ich kopiere daten von einem Tabellenblatt in ein anderes:
Sub Übersicht() Dim intS As Integer 'letzte belegte Spalte auf Blatt 1 Sheets("Daten").Columns("C:H").Copy With Sheets("Übersicht") intS = .Cells(1, Columns.Count).End(xlToLeft).Column .Cells(1, intS).PasteSpecial Paste:=xl...
08.08.2008 22:24:43
Thread-ID: 1000422
2 Beiträge
Pivot-Table-Makro in mehreren Tabellen-Blättern
Ela

Liebe Fachleute,
ich habe eine Arbeitsmappe mit mehreren Tabellen-Blättern. Nun habe ich ein Makro zur Erstellung einer Pivot-Tabelle aufgenommen. Ich möchte, unabhängig davon, auf welchem Tabellenblatt ich mich gerade befinde, das Makro ablaufen lassen. Und zwar so, dass das Makro immer au...
26.08.2008 10:04:08
Thread-ID: 1004699
3 Beiträge
Anzeige
Datensätze in neues Tabellenblatt
kutzmutz

Hallo liebe Experten,
ich bastele für meinen Vater eine Übersicht über Bestellungen. Es gibt ein Tabellenblatt "Ersatzteile" in dem Teile mit Bestellnummern, Preisen etc. versehen sind. Wird ein Teil benötigt, wird die Zeile grün markiert und der Gesamtpreis der zu bestellenden Teile ans En...
26.08.2008 23:09:00
Thread-ID: 1004943
3 Beiträge
Datenbereich dynamisch in Pivot-Tabelle einbinden
Markus

Hallo allerseits,
ich habe folgendes Problem. Für die Erstellung einer Pivot-Tabelle muß ich den Datenbereich manuell selektieren. Da sich aber mein Datenbereich ständig ändert, würde ich das ganze automatisiert selektieren lassen. Wie krieg' ich das in dem folgenden Makro unter ?:
Rang...
02.09.2008 14:20:30
Thread-ID: 1006792
4 Beiträge
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
Daten in UF und nicht in Tabelle
Wolfgang

Hallo,
den untenstehenden Code hatte mir Tino soweit zur Verfügung gestellt und er läuft auch super. Nun kam mir nur die Überlegung, ob die zu importierenden Daten anstatt in eine Tabelle auch in ein Userform mit entsprechenden Textboxes eingefügt werden können (Textbox1 = Vorname, Textbox...
10.09.2008 20:31:00
Thread-ID: 1008913
8 Beiträge
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
2 Combobox in UF in Tabelle1 u. Daten in Tabelle 2
Bernhard

Guten Abend liebe Excelprofis,
ich komme nicht weiter, folgende Aufgabenstellung zu lösen:
Ich rufe in Tabelle 1 eine Userform auf, die 2 ComboBoxen hat. (ArtikelNr. ArtikelBezeichnung). In Tabelle 2 stehen in Spalte A die ArtikelNrn. und in Spalte B die ArtikelBezeichnungen untereinand...
17.09.2008 21:32:00
Thread-ID: 1010532
5 Beiträge
Daten in Listbox und in Tabelle
otto

Hi, mit folgendem code suche ich Daten in einem Tabellenblatt und lese die Funstellen in eine Listbox ein, gleichzeitig werden die Daten in ein anderes Tabellenblatt geschrieben, dass ich sie für weitere Aktionen (z. B. filtern) zur Verfügung habe.
With Worksheets("Auftrag").Range("a10:af30...
18.09.2008 10:45:00
Thread-ID: 1010647
3 Beiträge
Datensätze in Tabellenblätter schreiben
TomTom


Hi,
ich habe eine Excelmappe mit 4 Bättern. Auf dem ersten Blatt (Spalte A) stehen die Rohdaten drin. Die sehen in etwar so aus:
START;flag,2,23,,,,34,45,33,45,,,,,,,56
ATTEMPT;flag,1,45,,12,,34,,,45,,,,,7,,56
START;flag,2,23,,,,34,45,33,45,,,,,,,56
STOP;flag,3,45,,5,,,...
30.09.2008 13:43:00
Thread-ID: 1013375
3 Beiträge
Daten aus Tabelle in eine andere Tabelle
Cornelia

Ich habe 2 Tabellen mit dem gleichen Aufbau.
Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
01.10.2008 08:11:00
Thread-ID: 1013510
6 Beiträge
Daten aus Pivot-Tabelle kopieren
Thomas

Guten Abend ,
wie kann ich per Schaltfläche einen Datenbereich aus einer Pivottabelle kopieren und in einem anderen Tabellenblatt einfügen?
Gruß
Thomas
03.10.2008 21:10:24
Thread-ID: 1014090
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige