|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.01.2020 09:26:03 |
Ufuk |
|
|
 Vorhandenes Tabellenblatt um Spalten ergänzen |
09.01.2020 10:11:24 |
Torsten |
|
|
|
09.01.2020 10:20:03 |
Ufuk |
|
|
|
09.01.2020 11:16:50 |
Torsten |
|
|
Von:
Torsten |
Datum:
09.01.2020 10:11:24 |
Views:
522 |
Rating:
|
Antwort:
|
Thema:
Vorhandenes Tabellenblatt um Spalten ergänzen |
|
Hallo,
so z.B.:
Sub Datenimport()
'Daten importieren
Dim strInvoicePeriod As String
Dim File As String
Dim lnglstSP As Long
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
lnglstSP = ThisWorkbook.Sheets(strInvoicePeriod).Cells(1, Columns.Count).End(xlToLeft).Column
ThisWorkbook.Sheets(strInvoicePeriod).Cells(1, lnglstSP).Offset(0, 1) = "Mengendifferenz"
ThisWorkbook.Sheets(strInvoicePeriod).Cells(1, lnglstSP).Offset(0, 2) = "Preis aus Materialpreisliste pro Tag"
ThisWorkbook.Sheets(strInvoicePeriod).Cells(1, lnglstSP).Offset(0, 3) = "Gesamtpreis aus Materialpreisliste pro Tag"
Gruss Torsten
|
- 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
|
|
09.01.2020 09:26:03 |
Ufuk |
|
|
Vorhandenes Tabellenblatt um Spalten ergänzen |
09.01.2020 10:11:24 |
Torsten |
|
|
|
09.01.2020 10:20:03 |
Ufuk |
|
|
|
09.01.2020 11:16:50 |
Torsten |
|
|