Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Daten-Excel-Ausdruck
Autor: LordOfTrance
Datum: 10.05.02 13:33
Moin Dieter B. Erstmal musst Du einen Verweis auf die Microsoft Excel Object Library über das Menü "Projekte" - "Verweise" einfügen. Und hier der Code: Private myExl As New Excel.Application Dim Wert(100, 5) As Integer Dim i As Integer, n As Integer Private Sub Command1_Click() myExl.Workbooks.Add Workbooks(1).Sheets("Tabelle1").Select Application.Visible = True For i = 1 To 5 For n = 1 To 100 ActiveSheet.Cells(n, i).Value = Wert(n, i) 'a1 b1 c1 d1 e1 'a2 b2 c2 d2 e2 '... 'a100 b100 c100 d100 e100 Next n Next i Dim LetzteZeile As Integer, LetzteSpalte As Integer LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row LetzteSpalte = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column With ActiveSheet.Range(Cells(1, 1), Cells(LetzteZeile, LetzteSpalte)) .EntireColumn.AutoFit .EntireRow.AutoFit .Select End With ActiveSheet.PageSetup.PrintArea = ActiveCell.CurrentRegion.Address ActiveSheet.PrintOut ActiveWorkbook.Close SaveChanges:=False End Sub Ich hoffe, ich konnte Dir ein wenig weiterhelfen. Bye Lord Of Trance

Daten-Excel-Ausdruck	60	seb-software	09.05.02 19:27
Re: Daten-Excel-Ausdruck	38	LordOfTrance	10.05.02 13:33

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen