Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
904to908
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
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblatt hinzufügen

Tabellenblatt hinzufügen
17.09.2007 14:03:12
Lolie
Hallo liebe herbianer,
habe ein problem, ich öffne mit einem makro ein neues tabellenblatt. bisher ist es so das es immer ein neues Blatt ist. Ich will aber das die daten der csv datei in einem Tabellenblatt names vormonat geöffnet wird, welches schon exsistiert. Habe es schon mit sovielen befehlen ausprobiert es einfach nicht funktionieren für Hilf wäre ich euch sher dankbar.
Liebe Grüße Euer Lolie

Sub Öffnen()
Dim strTmp As String
Dim arrTmp As Variant
Dim lngRow As Long
Dim wks As Worksheet
Dim sFile As String
Application.ScreenUpdating = False
sFile = Range("B3").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
With ThisWorkbook
Set wks = .Worksheets.Add(after:=Worksheets(.Worksheets.Count))
End With
Open sFile For Input As #1
While Not EOF(1)
lngRow = lngRow + 1
Line Input #1, strTmp
arrTmp = Split(strTmp, ";")
With wks.Range(Cells(lngRow, 1), Cells(lngRow, UBound(arrTmp) + 1))
.NumberFormat = "@"
.Value = arrTmp
End With
Wend
Close #1
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt hinzufügen
17.09.2007 14:16:00
selli
hallo lolie,
nachdem du das neue sheet eingefügt hast einfach umbenennen:
set wks=......
.name="vormonat"
end with
gruß selli

AW: Tabellenblatt hinzufügen
17.09.2007 14:27:08
Lolie
Hey selli
also wenn ich es so eingebe
With ThisWorkbook
Set wks = .Worksheets.Add(after:=Worksheets(.Worksheets.Count))
.Name = "Vormonat"
End With
kommt
Fehler beim kompilieren
Zuweisung an schreibgeschützte Eigenschaft nicht möglich
und wenn ich den punkt vor dem Name weck nehme
dann erstellt er wieder neue tabellenblätter aber tabelle1,tabelle2,......
Was mache ich denn falsch
Liebe Grüße Lolie

Anzeige
AW: Tabellenblatt hinzufügen
17.09.2007 14:36:00
selli
mein fehler.
versuche folgendes:
set wks=......
end with
sheets(workscheets.count).name="vormonat"
gruß selli

korrektur
17.09.2007 14:38:56
selli
a = Worksheets.Count
ThisWorkbook.Sheets(a).Name = "vormonat"

AW: korrektur
17.09.2007 14:47:00
Lolie
Sorry funktioniert immer noch nicht.

AW: Tabellenblatt hinzufügen
17.09.2007 14:43:00
Lolie
Funktioniert leider auch nicht es öffnet sich immer nur eine neues Blatt (Tabelle1,...) aber es soll so sein das die csv datei die ich öffne in einem tabenblatt geöffnet wird welches schon in der arbeitsmappe vorhanden ist.
Schonmal vielen dank
Liebe Grüße Lolie

AW: Tabellenblatt hinzufügen
17.09.2007 14:49:46
selli
ach so.
ich dachte, du willst ein neues Tabellenblatt mit namen "vormonat" einfügen

Sub Öffnen()
Dim strTmp As String
Dim arrTmp As Variant
Dim lngRow As Long
Dim wks As Worksheet
Dim sFile As String
Application.ScreenUpdating = False
sFile = Range("B3").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Open sFile For Input As #1
While Not EOF(1)
lngRow = lngRow + 1
Line Input #1, strTmp
arrTmp = Split(strTmp, ";")
With Sheets("Vormonat").Range(Cells(lngRow, 1), Cells(lngRow, UBound(arrTmp) + 1)) _
.NumberFormat = "@"
.Value = arrTmp
End With
Wend
Close #1
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub


dann versuch mal das.
gruß selli

Anzeige
AW: Tabellenblatt hinzufügen
17.09.2007 14:55:28
Lolie
Also habe es jetzt so versucht da tut sich aber nichts.

AW: Tabellenblatt hinzufügen
17.09.2007 15:03:00
selli
"da tut sich aber nichts" ist nicht wirklich aussagekräftig.
gibt es eine fehlermeldung?
schreibe vor Sheet("Vormonat").... noch ThisWorkbook.
oder lade mal beide dateien hoch.
(wäre doch gelacht)
gruß
selli

AW: Tabellenblatt hinzufügen
17.09.2007 15:10:00
Lolie
Hey Seli also wenn ich den Quelltext eingebe den du gesagt hast dann tut sich garnicht habe ihn jetzt auch so geändert wie du gesagt hast, aber es tut sich echt null. bei dem befehl vorher hat sich ja wenigstens noch ein Tabellenblatt geöffnet, wollte ich zwar nicht aber es hat sich wenigstens was getan (-:
Liebe Grüße Lolie

Anzeige
AW: Tabellenblatt hinzufügen
17.09.2007 15:21:14
selli
dann hier was ganz anderes.
so bzw. so ähnlich hole ich mir csv-files.
habe schon dein tabellenblatt "Vormonat berücksichtigt"

Sub import()
Application.ScreenUpdating = False
On Error Resume Next
ort = Range("B3")
Sheets("Vormonat").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:="Text;" & ort & file, Destination:=Range("A1")) _
.Name = file
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Application.ScreenUpdating = True
End Sub


gruß selli

Anzeige
AW: Tabellenblatt hinzufügen
17.09.2007 15:40:54
Lolie
Hey supie das klappt jetzt.
Habe nur noch eine frage,
im moment ist es ja so das ich den pfad namen so eingeben muss also in der excel tabelle, gibt es vllt eine möglichkeit das wenn ich das makro öffne, das sie ein eingabefenster öffnet in der ich den pfad eingebe wo die csv datei liegt.
Vielen dank
Liebe Grüße Lolie

AW: Tabellenblatt hinzufügen
17.09.2007 15:56:00
selli
klar geht das.

Sub import()
Application.ScreenUpdating = False
On Error Resume Next
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Title = "Wählen Sie bitte ddie gewünschte Datei aus!"
.ButtonName = "Übernehmen"
'.InitialFileName = ActiveCell.Value
End With
If fd.Show = -1 Then
ort = fd.SelectedItems(1)
End If
Sheets("Vormonat").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:="Text;" & ort & file, Destination:=Range("A1")) _
.Name = file
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Application.ScreenUpdating = True
End Sub


gruß selli

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige