Code Ändern
21.09.2004 07:56:20
Matthias
Ich hab nen Prob. mit folgendem Qeullcode.
Ich generiere vor weg 41 Tabellenblätter die meistens auch mit werten belegt sind. Aber wenn ich nun Tabelllenblätter habe die nicht belegt sind übernimmt dieses Programm die vor defienierten Einstellungen (Überschrifften, Datum usw.)die im Bereich (A2:J33) liegen Dieser code müste jetzt so geändert werden, dass er den Bereich von (A6:J31)abfragt ob der Bereich mit werten belegt ist wenn ja soll er dass Tabellenblatt umwandeln wenn nicht soll er es löschen
(!Wichtig ist dabei aber das er auch das Tabellenblatt als belegt erkennt wenn z.B. nur der Bereich Von (A6:J6) belegt ist.!)
Sub TabellenZuText()
Dim wb As Workbook
Dim wbA As Workbook
Dim intZ As Integer
Dim lngWS As Long
Set wbA = ActiveWorkbook
lngWS = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Set wb = Workbooks.Add
Application.SheetsInNewWorkbook = lngWS
Application.DisplayAlerts = False
With wb.Sheets(1)
For intZ = 1 To intZ + 41
wbA.Sheets("Page_" & intZ).Range("A1:J33").Copy .Cells(intZ * 33, 1)
Next intZ
.Rows("1:32").Delete
.Parent.SaveAs Filename:="C:\Exel-CSV\CSV\Partlist txt\Partlist Plates.txt", FileFormat:=xlText, _
CreateBackup:=False
.Parent.Close False
End With
Application.DisplayAlerts = True
End Sub
Ich bitte um eure hilfe und bedanke mich schonmal im Vorraus
Mfg Matthias