Exel Abfrage neues Datenblatt

TheVBNoob^10 · 12. August 2016, 08:23

Hallo zusammen,

ich arbeite momentan an einer Excel Liste die (leider) sehr umfangreich wurde. Daher wurde ich gezwungen mich mit VBA auseinander zu setzen und bin dementsprechend noch ein ziemlicher Noob.

Mein Problem:

Ich möchte, dass ständig überprüft wird ob ein neues Arbeitsblatt zu der Excel Arbeitsmappe hinzugefügt wird. Wenn das der Fall ist soll eine Massage Box erscheinen. Hier soll stehen "Soll das neue Arbeitsblatt in die Statistik übernommen werden? mit der Möglichkeiten Ja und Nein. Beim drücken auf Ja muss im Anschluss ermittelt werden was die letzte befüllte zeile des Arbeitsblattes ist und diese dann in einen String übernommen werden.

Könnt ihr mir bitte helfen?

Danke schon jetzt :thumbsup:

petaod · 12. August 2016, 11:56

Seit Office 2010 gibt es das Workbook-Event NewSheet
msdn.microsoft.com/en-us/libra…f821246(v=office.14).aspx

TheVBNoob^10 · 12. August 2016, 13:52

Hey!

Danke für den Tipp!

Würde ich dann so vorgehen:

Quellcode

Sub Makro1()
If NewSheet() Then
MsgBox "Soll das neue Arbeitblatt in die Statistik übernommen werden?"
End If
End Sub

petaod · 12. August 2016, 14:52

Nein.
Du musst einen EventHandler schreiben.
Lege im Code-Bereich ThisWorkbook bzw., falls deutsch DieseArbeitsmappe folgende Routine an:

Visual Basic-Quellcode

Private Sub Workbook_NewSheet(ByVal Sh as Object)
If MsgBox("In Statistik übernehmen?", vbYesNo) = vbYes Then
'was immer du auch tun musst, um das Sheet in die Statistik zu übernehmen
End If
End Sub

Diese Routine wird immer dann aufgerufen, wenn ein neues Sheet angelegt wird.
Das stand (incl. Beispiel) aber doch in dem Link drin.

TheVBNoob^10 · 16. August 2016, 15:32

Vielen Dank so wurde es gemacht!

Exel Abfrage neues Datenblatt

Exel Abfrage neues Datenblatt

Quellcode

Visual Basic-Quellcode

Benutzer online 1

Tags

Ähnliche Themen

2 Benutzer haben hier geschrieben