Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Excel+VBA
Autor: smither
Datum: 28.11.03 00:20
hi tom, sm einfachsten ist es wenn du eine spalte hast in der auf alle fälle was drin steht dann kannst du anhand dieser spalte alle zeilen durchgehen. beispiel: Private Sub Workbook_Open() On Error GoTo Fehler Dim Datum1 As Date Dim Datum2 As Date Dim wb as Workbook Dim xlsSheet as Worksheet dim iRow as Integer, iCol as Integer Set wb = ActiveWorkbook Set xlsSheet = wb.Sheets("Tabelle1") iRow = 1 iCol = 1 while xlsSheet.Cells(iRow, iCol).Value <> "" Datum1 = CDate(xlsSheet.Cells(iRow, iCol).Value) Datum2 = CDate(xlsSheet.Cells(iRow, iCol + 3).Value) 'Naja den rest kriegst du hin iRow = iRow +1 wend Fehler: Range("A1").Select End Sub Statt der Cells kannst du auch das Range Objekt nehmen ist aber meiner Meinung nach umständlicher. Hoffe das Hilft Dir weiter. cu

Excel+VBA	545	Tom21	28.11.03 00:06
Re: Excel+VBA	296	smither	28.11.03 00:20
Re: Excel+VBA	297	Tom21	28.11.03 00:38

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