Das Archiv des Excel-Forums

Daten aus einer Userform in ein Tabellenblatt

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Daten aus einer Userform in ein Tabellenblatt
von: Peter

Geschrieben am: 15.10.2003 13:05:44

Hallo Excels,

für die erweiterung meines Makros benötige ich wiedermal Hilfe von den Profis.
Das ist Teil eines Grösseren Makros, dass in einer Userform steht.

If ActiveCell.Offset(0, 6).Value >= ActiveCell.Offset(0, 15).Value Then

With us1
.Label7.Caption = "Achtung der Mindestbestand wurde unterschritten!" & vbCr & ActiveCell.Offset(0, 8).Value _
& " " & ActiveCell.Offset(0, 7).Value & " " & "Bestellen ?"
.Height = "200,25"
.Label5.Visible = False
End With
'***Hinweisschild****
Call Hinweis.Show
With Hinweis
.Left = 10000
'.Top = 10000
End With
'***Hinweisschild Ende***

End If

Bei einer bestimmten Bedingung wird die Userform grösser und gibt aus dem aktuellen Tabelleblatt Informationen frei.
Nun möchte ich dieses Makro folgendermasen erweitern.
Ich möchte ein zusätlichen Button auf die Userform setzen und bei betätigung sollen die Informationen die im Label7 stehen auf ein Tabellenblatt mit dem Namen "Tagesbestellung" eingeschrieben werden.

Danke schon mal an jeden der versucht diesen Text zu verstehen und mir dan noch Helfen kann

Gruss
Peter
Bild


Betrifft: AW: Daten aus einer Userform in ein Tabellenblatt
von: Ron Andres
Geschrieben am: 15.10.2003 13:51:40

Hi,

ich würde den Button setzten und dann ausbelnden (Visible Eigenschaft auf False stellen). Dann eine If Bedingung, die den Butto einblendet, falls in der Zelle das richtige steht (z.B. if Range("A5") = 7 then UserForm1.ButtonName.Visible = True) und dann dem Button die entspechende Funktion hinterlegen. Ungefähr so: sheets("Tagesbestellung").range"A1") = UserForm1.Label7.caption

Wie man einen Button programmiert, ist Dir klar? wenn nicht, dann doppelt draufklicken und Du müßtest bei ner Prozedur

Private Sub CommandButton1_Click()
End Sub

landen
Gruß Ron Andres


Bild


Betrifft: AW: Daten aus einer Userform in ein Tabellenblatt
von: ChrisL
Geschrieben am: 15.10.2003 13:51:44

Hi Peter


Private Sub CommandButton1_Click()
Worksheets("Tagesbestellung").Range("A1") = Label7.Caption
End Sub



Gruss
Chris


Bild


Betrifft: AW: Daten aus einer Userform in ein Tabellenblatt
von: peter
Geschrieben am: 15.10.2003 14:17:18

Danke erstmal euch beiden.

Ich habe einen Weg gefunden.
Die daten werden nun "Zeitgleich:)"mit der Userformanzeige in das andere Tabellenblatt geschrieben.

Hier mal meine Lösung.Vieleicht hat jemand eine Idee wie die sache kürzer zu machen ist.

If ActiveCell.Offset(0, 6).Value >= ActiveCell.Offset(0, 15).Value Then
With us1
.Label7.Caption = "Achtung der Mindestbestand wurde unterschritten!" & vbCr & ActiveCell.Offset(0, 8).Value _
& " " & ActiveCell.Offset(0, 7).Value & " " & "Bestellen ?"
.Height = "200,25"
.Label5.Visible = False
End With
'+++++++++++++++++++++++++++++Test
Dim a1 As String
Dim a2 As String
Dim a3 As String
Dim a4 As String
a1 = ActiveCell
a2 = ActiveCell.Offset(0, 1)
a3 = ActiveCell.Offset(0, 8)
a4 = ActiveCell.Offset(0, 7)
Dim azelle
Dim TB
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Tagesbestellung").Activate
Range("A5000").Select
Selection.End(xlUp).Select

azelle = ActiveCell.Row
Cells(azelle + 1, 1).Select
azelle = ActiveCell.Row
Cells(azelle, 1).Value = a1
Cells(azelle, 2).Value = a2
Cells(azelle, 3).Value = a3
Cells(azelle, 4).Value = a4

ThisWorkbook.Sheets("Tabelle_aus_Kvasy").Activate
Application.ScreenUpdating = True
'***************************Test Ende

gruss peter


 Bild

Excel-Beispiele zum Thema " Daten aus einer Userform in ein Tabellenblatt"

Diagramm in Userform download XL-Dateien in UserForm listen download
UserForm an Excel-Fenster anpassen download Fundstellen in UserForm listen download
Module und UserForms austauschen download In einer Schleife auf Elemente einer UserForm zugreifen download
Werte in eine ComboBox einer UserForm übernehmen download Zellinhalt als Label-Aufschrift in UserForm download
Alle CheckBoxes einer UserForm ansprechen download Wenn kein Eintrag, UserForm nicht schließen download
Aktiven Drucker in UserForm wechseln download Text aus UserForm-Textbox in Variable einlesen download
UserForm in Abhängigkeit einer RefEdit-Auswahl anzeigen download Nur Buchstaben in eine UserForm-TextBox download
Wert in Tabelle suchen und in UserForm ausgeben download Tabellenblatt in UserForm download
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen download Nach Ortsauswahl neue UserForm mit Ortsteilauswahl download
Textfelder in UserForm beim Start vorbelegen download Text aus UserForm in eine Zelle schreiben download
Verhindern des Schließens einer UserForm mittels Schließkreuz download Wert in UserForm-TextBox eintragen und selektieren download
Auf UserForm-CommandButton-Klick eine Internetseite aufrufen download ComboBox-Felder in UserForm aufklappen download
Eingabekontrolle bei UserForm download UserForm-ComboBox-Feld nach Tasteneingabe aufklappen download
Userform in der Entwicklungsumgebung anzeigen download Wert aus 2. UserForm-ComboBox-Spalte berechnen download
CheckBoxes in UserForms in eine Schleife einbinden download Anzahl von CheckBoxes in einer UserForm ermitteln download
Vereinfachte Datumseingabe über UserForm download Auslesen des ausgewählten Optionsfeldes in einer UserForm download
Werte von CheckBoxes in einer UserForm abfragen download Mit Drehfeld durch UserForm-TextBoxes blättern und Daten auslesen download
Mit TextBox-Werten in UserForm rechnen download Datensätze in UserForm auswählen und im Blatt löschen download
Bilder in UserForm und Bildgröße anpassen download Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen download
Werte aus UserForm-TextBox in bestimmten Formate übertragen download UserForm als Fortschrittsanzeige download
AcrobatReader mit *.pdf-Dokument über UserForm starten download Zu einer aufrufenden UserForm zurückkehren download
In einer UserForm Berechnungen aufaddieren download Matrix in UserForm-ListBox einlesen download
Bereichsnamen in UserForm-ListBox auflisten und editieren download Spalte A mehrer Mappen in UserForm und aktives Blatt download
Adressfeld aus UserForm-ComboBox füllen download Ausgewählte Werte aus UserForm-ListBoxes addieren download
Mehrfachauswahl aus UserForm-ListBoxes in Tabelle eintragen download Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download
Benennen von Tabellenblättern mit Monatsnamen download Druckseitenlinien im Tabellenblatt download
Tabellenblattnamen in ein Listenfeld einlesen download Suchbegriff über mehrere Tabellenblätter suchen. download
Tabellenblätter benennen download Tabellenblatt auswählen download
Zustand von Tabellenblatt-Checkboxes ermitteln download Tabellenblattnamen der VBE-Projekte ändern download
Tabellenblattnamen nach Datum download Gefilterte Daten in neues Tabellenblatt übertragen download
Mehrmals vorkommende Werte in neues Tabellenblatt download Grafiken im Tabellenblatt ordnen download
Einzelnes Tabellenblatt speichern download Tabellenblattnamen in eine ListBox einlesen download
Tabellenblätter in umgekehrter Reihenfolge drucken download Anwendername in Tabellenblatt eintragen download
Druck aus mehreren Tabellenblättern auf eine Druckseite download Letztes Speicherdatum in die Fußzeile aller Tabellenblätter download
Ausgewählte Tabellenblätter als eigene Arbeitsmappen speichern download Den selben Bereichsnamen in mehreren Tabellenblättern download
Textdatei in Tabellenblatt importieren download Einzelnes Tabellenblatt unter Tagesdatum speichern download
Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download Tabellenblattbereich als Email versenden download
Elemente in Tabellenblatt Pac-Man-artig steuern download Einen vorgegebenen Tabellenblattbereich in neue Arbeitsmappe download
Schaltfläche in einem Tabellenblatt ein- und ausblenden download Letzte Verknüpfung in einem Tabellenblatt löschen download
Tabellenblattbereich sortiert als Zellkontextmenü download Ausgeblendetes Tabellenblatt bei Paßworteingabe anzeigen download
Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle download Tabellenblattinhalt unter Weglassung einer Spalte als Textdatei download
ComboBoxes per VBA-Code in Tabellenblatt erzeugen download In einem zweiten Tabellenblatt vorgegebene Zeilen beschriften download
Diagramm exportieren und in Tabellenblatt importieren download Arbeitsmappen- und Tabellenblattnamen auslesen download
Tabellenblatt-Hyperlink über UserForm aufrufen download Tabellenblatt durch Zell-Doppelklick auswählen download
Zellen über Tabellenblatt-Schaltfläche multiplizieren download Neues Tabellenblatt und Name über UserForm ermitteln download
Wert aus Zelle in Tabellenblatt-Textbox eintragen download Prüfung, welche Tabellenblätter aus einer Liste vorhanden sind download
Wert aus UserForm-ListBox in Tabellenblatt eintragen download Tabellenblatt mit dem aktuellen Monatsnamen drucken download
Tabellenblatt kopieren und dreistellig fortlaufend numerieren download Nach Tabellenblatt-ComboBox den vorher selektierte Bereich wählen download
Mehrere Tabellenblattbereich unabhängig voneinander sortieren download Neue Schaltfläche mit zugehörigem Code in Tabellenblatt download
Tabellenblatt-TextBox-Wete in Abhängigkeit zu Drehfeld download