Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1636to1640
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
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Code für Formular

VBA Code für Formular
01.08.2018 14:58:12
Simone
Hallo zusammen,
wir haben eine Datei. Da gibt ein Mitarbeiter ( Lehrling ) Daten ein.
Spalte A = Angelegt von
Spalte B = Datum
Spalte C = Mitarbeiter
Spalte D = Personalnummer
Spalte E = Abteilung
Spalte F = Neuanlage ( da wird ein x gemacht )
Spalte G = uniteressant
Spalte H = Änderung ( da wird ein x gemacht )
Spalte I = Löschung ( da wird ein x gemacht )
Spalte M = Info
Spalte O = Bemerkung
Jetzt möchte ich in dieser Datei einen Button erstellen der eine Abfrage macht
" Welche Daten sollen ins Formular befüllt werden" Markieren sie das Datum ( Spalte D ) Drücken SIE OK
Jetzt sollen die Daten ins Formular gefüllt werden.
Diese Formular befindet sich im Pfad:
Z:\Transfer\Allgemein\Sepp\Formular\EDVFormular.xlsx
Hier das Formular:
A28 = Soll befüllt werden mit dem User der den Button geklickt hat
E31 = soll stehen (Neuanlage, Änderung,Löschung) wenn ein Kreuz ist bei Spalte F , Spalte H oder Spalte I ( es kann immer nur ein kreuz von diesen dreien sein )
N28 = Datum aus Spalte B
E34 = Spalte C
E36 = Spalte D
C39 = Spalte E
D41 = Spalte M
F48 = Spalte O
Danach soll das Formular automatisch Drucken und in den Ordner :
Z:\Transfer\Allgemein\Sepp\Formular\erl gespeichert werden. ( mit Name E34 und Datum und Uhrzeit )
Wäre sowas machbar ?
Ich hoffe es war verständlich geschrieben.
Danke euch.
Liebe Grüße und einen schönen sonnigen tag :-)

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Doppelt! S.u., owT
01.08.2018 15:08:12
Michael
Ja,wäre machbar-Frage beantwortet? owT
01.08.2018 15:54:59
robert
owT
01.08.2018 19:21:39
Simone
Hallo
wenn wie kann mir jemand helfen?
Bin in VBA mega schlecht :-(
AW: Ja,wäre machbar-Frage beantwortet? owT
01.08.2018 21:45:13
Matthias
Moin!
Hier mal ein Anfang. Bei der genauen Zeile fehlen aber noch Angaben. Du schreibst "Markieren sie ein Datum (Spalte D)" Da ist doch aber die Personalnummer. Ich bin deshalb mal ohne Prüfung über die selektiere Zeile gegangen. Code ist nicht getestet. Einfach mal schauen. Bin aber erst nächsten Montag wieder am Rechner.
VG
Private Sub CommandButton1_Click()
Dim meinformular
Dim eingabe
Dim zeile As Long
Dim pfadspeichern As String
Dim pfadformular As String
Dim dateiname As String
Set eingabe = ActiveSheet
pfadspeichern = "Z:\Transfer\Allgemein\Sepp\Formular\erl\"
pfadformular = "Z:\Transfer\Allgemein\Sepp\Formular\EDVFormular.xlsx"
Set meinformular = Workbooks.Open(pfadformular)
'Prüfung ob Datum ausgewählt
zeile = Selection.Row 'da fehlten die ANgaben
With meinformular.Worksheets(1)
.Range("A28") = Environ("UserName")
If eingabe.Cells(zeile, 6) = "x" Then .Range("E31") = "Neuanlage"
If eingabe.Cells(zeile, 8) = "x" Then .Range("E31") = "Änderung"
If eingabe.Cells(zeile, 9) = "x" Then .Range("E31") = "Löschung"
.Range("N28") = eingabe.Cells(zeile, 2)
.Range("E34") = eingabe.Cells(zeile, 3)
.Range("E36") = eingabe.Cells(zeile, 4)
.Range("C39") = eingabe.Cells(zeile, 5)
.Range("D41") = eingabe.Cells(zeile, 13)
.Range("F48") = eingabe.Cells(zeile, 15)
dateiname = pfadspeichern & .Range("E34") & Replace(Now, ":", "_")
.SaveCopyAs dateiname
'drucken
.PrintOut Copies:=1, Collate:=True
End With
meinformular.Close savechanges:=False
End Sub

Anzeige
was meinst Du, wie das weitergeht...
02.08.2018 08:44:00
robert
Bin in VBA mega schlecht .....
Robert...
02.08.2018 10:27:45
Simone
Hallo Robert.
Ich bin gerade drüber VBA zu lernen. Leider habe ich aktuell wenig Zeit, aber im Januar 2019 bekomme ich eine Woche ein Seminar bezahlt für VBA.
Aber zur Zeit kämpfe ich mich durch und bin für jede Hilfe dankbar.
Danke Dir
AW: Ja,wäre machbar-Frage beantwortet? owT
02.08.2018 10:25:17
Simone
Hallo Matthias,
ah sorry, war mein Fehler ( Spalte B). Aber über eine Selektion der Zeile wäre auch cool.
Momentan nimmt er immer nur die erste Zeile auch wenn ich die 4 Zeile markiere.
Es kommt auch ein Fehler bei :
.SaveCopyAs Dateiname
Die Daten werden nicht gespeichert.
Danke dir.
Anzeige
AW: Ja,wäre machbar-Frage beantwortet? owT
06.08.2018 21:07:29
Matthias
Moin!
So sollte es klappen. Das mit der Selection musste vor das Öffnen der Datei. Schau mal, ob es so passt.
VG
Private Sub CommandButton1_Click()
Dim meinformular
Dim eingabe
Dim zeile As Long
Dim pfadspeichern As String
Dim pfadformular As String
Dim dateiname As String
Set eingabe = ActiveSheet
pfadspeichern = "Z:\Transfer\Allgemein\Sepp\Formular\erl\"
pfadformular = "Z:\Transfer\Allgemein\Sepp\Formular\EDVFormular.xlsx"
zeile = Selection.Row 'da fehlten die ANgaben
Set meinformular = Workbooks.Open(pfadformular)
With meinformular.Worksheets(1)
.Range("A28") = Environ("UserName")
If eingabe.Cells(zeile, 6) = "x" Then .Range("E31") = "Neuanlage"
If eingabe.Cells(zeile, 8) = "x" Then .Range("E31") = "Änderung"
If eingabe.Cells(zeile, 9) = "x" Then .Range("E31") = "Löschung"
.Range("N28") = eingabe.Cells(zeile, 2)
.Range("E34") = eingabe.Cells(zeile, 3)
.Range("E36") = eingabe.Cells(zeile, 4)
.Range("C39") = eingabe.Cells(zeile, 5)
.Range("D41") = eingabe.Cells(zeile, 13)
.Range("F48") = eingabe.Cells(zeile, 15)
dateiname = pfadspeichern & .Range("E34") & Replace(Now, ":", "_") & ".xlsx"
meinformular.SaveCopyAs dateiname
'drucken
.PrintOut Copies:=1, Collate:=True
End With
meinformular.Close savechanges:=False
End Sub

Anzeige

73 Forumthreads zu ähnlichen Themen

vlookup in vba
Christoph

Hallo,
ich hoffe mir kann jemand weiterhelfen.
ich möchte in einem Makro nach einem Datensatz in einer geschlossenen xls. Datei suchen, ähnlich wie bei Sverweis in excel.
Sprich ich suche nach einer eindeutigen Nr. in Spalte A und möchte dann als String den Wert der Spalte B erhalte...
15.10.2008 20:00:00
Thread-ID: 1016669
10 Beiträge
Anzeige
WorksheetFunction VLookup
chrissey

Hallo Leute,
hab eine User Form mit einer ComboBox1 und einer TextBox11 jetz möchte ich dass
wenn ich ein Suckriterium in der ComboBox wähle in der TextBox der dazugehörige Wert
eingetragen wird. Habs so probiert: Private Sub ComboBox1_Change() TextBox11.Value = WorksheetFunction.VL...
25.08.2009 08:05:19
Thread-ID: 1098290
3 Beiträge
if-Funktion in vlookup - VBA
PeterO

Hallo Forum,
ich stoße bei der Integration von Formeln in VBA immer wieder an meine Grenzen. Folgende Formel möchte ich gern in meinem Makro darstellen:
=WENN(SVERWEIS($B$16;amob;WENN($B$11="Da";2;WENN($B$11="Fa";3;4));1)*$B$16/1000>=mp_amob; SVERWEIS($B$16;amob;WENN($B$11="Da";2;WEN...
09.04.2010 13:45:43
Thread-ID: 1150798
7 Beiträge
Anzeige
VBA Code für Filter, Formatierung, Löschen
Padinjo

Hallo zusammen,
die Suche hat leider nichts brauchbares ergeben, deswegen versuch ich mein Glück in einem neuen Thema.
Vorab zur Info:
Ich habe eine Excel Datei, die durch eine Wenn-Formel sich bestimmte Zeilen aus einer anderen Datei zieht - Abhängig vom dem jeweiligen Datum das...
28.09.2011 09:20:11
Thread-ID: 1231781
10 Beiträge
Formel als Code in VBA
Claudia

Hallo guten Abend alle zusammen,
wer kann mir bitte mit einem kleinen VBA-Code helfen?
Welchen VBA-Code benötige ich wenn ich die letzten 4 Stellen des Dateinamens in die Zelle V2 des Tabellenblattes Einstellungen reinschreiben möchte.
Das besagte Tabellenblatt ist/wird mit xlVeryHi...
09.01.2012 20:40:00
Thread-ID: 1245402
6 Beiträge
VBA-Code für Button in Anfrageformular
Alex

Hallo Forumsmitglieder,
ich bräuchte für die Arbeit eine Hilfestellung bezüglich eines Buttons für ein Excel-Formular.
Es handelt sich dabei um ein Anfrageformular. Also wenn Kunden bei uns etwas anfragen, geschieht das oft per Mail. Dann schreiben sie nen 3-Zeiler und hängen die Zeichn...
22.02.2012 15:45:28
Thread-ID: 1251895
2 Beiträge
WorksheetFunction.Vlookup Suche von unten beginnen
unten

Hi,
die WorksheetFunction.Vlookup (Bereich_Verweis = FALSE) sucht in der 1. Spalte einer Matrix nach dem zu erstvorkommenden gesuchten Wert und gibt aus dieser Zeile einen Wert zurück. Gibt es eine Möglichkeit den zuletzt vorkommenden gesuchten Wert in einer Spalte zu finden ohne mit Schlei...
24.02.2012 10:08:00
Thread-ID: 1252277
3 Beiträge
VBA code löscht meine Formatierung
Marc

Hallo Excel Gemeinde!
Seit einiger Zeit lese ich hier schon mit und habe schon viele hilfreiche Dinge programmieren können. Leider bin ich jetzt, da ich von VBA keine Ahnung habe, an meine Grenzen gestossen.
Ich nutze eine Übersicht von Stellplätzen welche man über ein Dropdown Menü bel...
20.06.2012 11:27:23
Thread-ID: 1268079
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
9
4
2
6
7
9
5
1
2
3
2
8
4
8
2
3
3
5
1
1
3
3
1
3
7