vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: EXCEL 
Autor: Karl Klammer
Datum: 25.02.04 13:16
Hallo!

Die letzte Zeile, in der noch was drinne steht, bestimmt man so: 
 
Worksheets("Tabelle1").Cells.SpecialCells(xlLastCell).Row
Das kannst du dann natürlich in eine Schleife einbauen, z.B. 
 
dim i as Long 
with Worksheets("Tabelle1")
For i = 2 to .Cells.SpecialCells(xlLastCell).Row
  If .Cells(i, 1).Value <> "" Then 
  '...
  End if 
Next
end with
Gruß


Das hat schon vielen geholfen!
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
EXCEL800PrivatProgrammi...24.02.04 13:33
Re: EXCEL507ModeratorDieter24.02.04 14:46
Re: EXCEL483PrivatProgrammi...24.02.04 15:00
Re: EXCEL511Karl Klammer24.02.04 17:26
Re: EXCEL486PrivatProgrammi...24.02.04 21:25
Re: EXCEL473ThinkingBomb25.02.04 07:58
Re: EXCEL488Prian081525.02.04 09:14
Re: EXCEL521Prian081525.02.04 09:15
Re: EXCEL634Karl Klammer25.02.04 13:16

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übersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel