Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Daten aus einer Userform in ein Tabellenblatt

Daten aus einer Userform in ein Tabellenblatt
15.10.2003 13:05:44
Peter
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten aus einer Userform in ein Tabellenblatt
15.10.2003 13:51:40
Ron Andres
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
Anzeige
AW: Daten aus einer Userform in ein Tabellenblatt
15.10.2003 13:51:44
ChrisL
Hi Peter


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


Gruss
Chris
AW: Daten aus einer Userform in ein Tabellenblatt
15.10.2003 14:17:18
peter
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
Anzeige

309 Forumthreads zu ähnlichen Themen


Hi mal wieder!
ich hab mal wieder ne frage:
es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
Die Ursprungsdateien sind laufend nummeriert... und dann
kommt noch ein name als nummer- name.xls <...
Anzeige

Hallo,
kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
Anzeige

Guten morgen alle zusammen!
Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
Hier ein Beispiel meiner Liste:
https://www.herber.de/bbs/user/55376.xls
Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...

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...

Für eine "Tägliche Auswertung" suche ich ein Makro.
Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige