Tabellenblattabfrage

Hallo,
ich habe folgende Bitte, kann mir jemand in folgendes Makro, vor folgender Zeile
(Sheets("105").Select) eine Abfrage einbauen, wo alle Blätter , bzw. nur die, welche mit einer Zahl beginnen angezeigt werden und die entsprechende Tabelle dann aufgerufen wird.
Danke im Voraus
Klaus


Sub Eintragen_Auftrag_TXT()
' Eintragen_Auftrag_TXT Makro
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.OpenText Filename:="C:\AUFTR.TXT", Origin:=xlWindows, StartRow _
:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 1)
Range("A2:P100").Select
Selection.Copy
Windows("GMT2004.xls").Activate
Sheets("105").Select
If Not IsEmpty(Range("A1")) Then
Range("a1").End(xlDown).Offset(1, 0).Select
Else
Range("A1").Select
End If
ActiveSheet.Paste
Windows("Auftr.txt").Activate
ActiveWorkbook.Close SaveChanges:=False
Range("A1").Select
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Eintragen_Auftrag_TXT() ' Eintragen_Auftrag_TXT Makro Application.ScreenUpdating = False Application.DisplayAlerts = False Workbooks.OpenText Filename:="C:\AUFTR.TXT", Origin:=xlWindows, StartRow _ :=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(1, 1) Range("A2:P100").Select Selection.Copy Windows("GMT2004.xls").Activate For sh = 1 To Sheets.Count If IsNumeric(Left(Sheets(sh).Name, 1)) Then Sheets(sh).Select If Not IsEmpty(Range("A1")) Then Range("a65536").End(xlUp).Offset(1, 0).Select ' von unten nach oben Else Range("A1").Select End If ActiveSheet.Paste Next sh Windows("Auftr.txt").Activate ActiveWorkbook.Close SaveChanges:=False Range("A1").Select Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

Sub Eintragen_Auftrag_TXT() ' Eintragen_Auftrag_TXT Makro Application.ScreenUpdating = False Application.DisplayAlerts = False Workbooks.OpenText Filename:="C:\AUFTR.TXT", Origin:=xlWindows, StartRow:=1, _ DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(1, 1) Range("A2:P100").Select Selection.Copy Windows("GMT2004.xls").Activate Dim sh As Integer For sh = 1 To Sheets.Count If IsNumeric(Left(Sheets(sh).Name, 1)) Then Sheets(sh).Select If Not IsEmpty(Range("A1")) Then Range("a65536").End(xlUp).Offset(1, 0).Select ' von unten nach oben Else Range("A1").Select End If ActiveSheet.Paste End If Next sh Windows("Auftr.txt").Activate ActiveWorkbook.Close SaveChanges:=False Range("A1").Select Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread