Office: VBA Code Tabellenblatt kopieren und UserForm

Hallo,

ich hoffe mir kann jemand helfen. Schon mal vielen Dank für die Unterstützung.


Folgende Thematik:

In dem Blatt 1 ist ein ComandButton. Mit Klick soll über VBA folgendes abgefragt werden:

• Inputbox = Abfrage des Ortes
• Inputbox = Abfrage der Jahreszahl
• UserForm = Abfrage 1. oder 2. Halbjahr oder eigenes Datum oder abbrechen

Folgendes soll dann ausgelöst werden:

• Arbeitsblatt "Vorlage" kopieren und am Ende einfügen
• Ort in Zelle H5 eintragen
• Jahreszahl in Zelle H1 eintragen
• Abfrage aus Userform in Zelle B6 eintragen. 1. halbjahr = 15.03. + Abfrage Jahreszahl oder 2. Halbjahr 15.09. + Abfrage Jahreszahl, Abfrage eigenes Datum oder Abbrechen

Ich nutze dafür folgende Codes:

Private Sub CommandButton1_Click()
Dim strname As String
Dim strdatum As String
Dim strhalbI As String
Dim strhalbII As String


strname = InputBox("Bitte den Ort eingeben für den der TÜG erstellt werden soll:", "Blatt benennen")
strdatum = InputBox("Jahreszahl eingeben:")


If strname = "" Then
MsgBox "Kein Blattname eingetragen! Vorgang wird abgebrochen"
If strdatum = "" Then
MsgBox "Kein Datum eingetragen! Vorgang wird abgebrochen"
End If

Abfrage
End Sub





Worksheets("Vorlage").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = strname
ActiveSheet.Range("H5").Value = strname
ActiveSheet.Range("H1").Value = strdatum
MsgBox "Blatt """ & strname & """ erfolgreich kopiert!"

End Sub



--------------------------------------------------

Und im Userform folgenden Code:

Private Sub CommandButton1_Click()
Dim strdatum1 As String

strdatum1 = "15.03."

ActiveSheet.Range("B6").Value = strdatum1 & strdatum
Exit Sub

End Sub

Private Sub CommandButton2_Click()
Dim strdatum2 As String

strdatum2 = "15.09."

ActiveSheet.Range("B6").Value = strdatum1 & strdatum
Exit Sub
End Sub

Private Sub CommandButton4_Click()
Dim Dat As Variant
Dat = InputBox("Geben Sie ein Datum ein!")
If Not IsDate(Dat) Then
MsgBox "Kein gültiges Datum!"
Exit Sub
End If
ActiveSheet.Range("B6").Value = Dat
End Sub

Private Sub CommandButton3_Click()
Exit Sub
End Sub

Private Sub UserForm_Click()

End Sub

 

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

 

Hallo Hajo,

vielen dank schon mal. Anbei die Datei.

Grüße
Dominik

 

Hallo Dominik,

in der Woche habe ich wenig Zeit.
Was muss ich machen und was läuft nicht?

Gruß Hajo

 

Hallo Dominik,
bin zwar kein VBA Profi habe mich aber mal an deinem Problem versucht.
Vielleicht hilfst.
Gruß
Martin