|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Vorhandenes Tabellenblatt um Spalten ergänzen |
09.01.2020 09:26:03 |
Ufuk |
|
|
|
09.01.2020 10:11:24 |
Torsten |
|
|
|
09.01.2020 10:20:03 |
Ufuk |
|
|
|
09.01.2020 11:16:50 |
Torsten |
|
|
Von:
Ufuk |
Datum:
09.01.2020 09:26:03 |
Views:
1076 |
Rating:
|
Antwort:
|
Thema:
Vorhandenes Tabellenblatt um Spalten ergänzen |
|
Hallo zusammen,
ich versuche euch mal meine Problematik ausführlich zu erklären.
Ich habe mithilfe von VBA ein Tabellenblatt durch öffnen eines Dialogfensters samt dem ganzen Inhalt in die masterdatei reinkopiert.
Jetzt möchte ich das reinkopierte Tabellenblatt um die Spalten mit dem wording "Mengendifferenz", "Preis aus Materialpreisliste pro Tag" und "Gesamtpreis aus Materialpreisliste pro Tag" ergänzen.
Sub Datenimport()
'Daten importieren
Dim strInvoicePeriod As String
Dim File As String
Dim wkb As Excel.Workbook
Dim oBlatt As Worksheet
'Define name of new Tab
strInvoicePeriod = InputBox("Which Invoice Period shall be imported? (e.g. 02-2020")
Do Until strInvoicePeriod <> "" And Len(strInvoicePeriod) = 7
strInvoicePeriod = InputBox("Please insert the following data! Which Invoice Period shall be imported? (e.g. 02-2020")
Loop
'select promaintain invoice file
File = Application.GetOpenFilename()
'copy invoice sheet from promaintain file into this workbook
On Error GoTo ErrHandler
Application.ScreenUpdating = False
Set wkb = Workbooks.Open(File)
wkb.Sheets(1).Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = strInvoicePeriod
wkb.Close False
Application.ScreenUpdating = True
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Vorhandenes Tabellenblatt um Spalten ergänzen |
09.01.2020 09:26:03 |
Ufuk |
|
|
|
09.01.2020 10:11:24 |
Torsten |
|
|
|
09.01.2020 10:20:03 |
Ufuk |
|
|
|
09.01.2020 11:16:50 |
Torsten |
|
|