Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Immer nächste freie Zelle finden
Autor: Knetschi
Datum: 16.06.09 16:46
Momentan suche ich wie folgt nach der nächsten leeren Zelle was auch funzt aber eben lässt er mir nix reinschreiben da meckert er rum: Fehlermeldung: Ausnahme von HRESULT: 0x800A03EC Mein Code: Dim xlApp As Excel.Application xlApp = CreateObject("excel.Application") Dim wb As Excel.Workbook = xlApp.Workbooks.Open(NKundenPath) xlApp.Visible = False For Each zelle In xlApp.Worksheets("Ergebnisse").Range("B7:B10000") If zelle.Value = "" Then xlApp.Worksheets("Ergebnisse").Range(zelle).Value = TextBox1.Text xlApp.ActiveSheet.SaveAs(NKundenPath) xlApp.Workbooks.Close() xlApp.Application.Quit() xlApp = Nothing End If Next

Immer nächste freie Zelle finden	2.835	Knetschi	16.06.09 14:40
Re: Immer nächste freie Zelle finden	2.171	FZelle	16.06.09 15:12
Re: Immer nächste freie Zelle finden	2.219	Knetschi	16.06.09 15:22
Re: Immer nächste freie Zelle finden	2.285	Knetschi	16.06.09 16:46
Re: Immer nächste freie Zelle finden	2.204	newcomerVB2008	16.06.09 17:39
Re: Immer nächste freie Zelle finden	2.298	Knetschi	17.06.09 09:02

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