Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Funktion über ausgefüllten Bereich
zurück: Mit markiertem Bereich arbeiten weiter: Filter auf andere Tabellenblätter Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
steven-1986
Gast


Verfasst am:
30. Jan 2009, 11:27
Rufname:

Funktion über ausgefüllten Bereich - Funktion über ausgefüllten Bereich

Nach oben
       Version: Office 2003

Hallo zusammen.

Hoffe der Titel verwirrt nicht zu sehr.

Ich habe ein Makro zusammen "gebastelt", welches mir von einer TXT Datei Daten importiert.
Dies funktioniert nun auch so wie ich es möchte.
Da diese txt Datei mal 100 Datensätze haben kann aber auch 10'000 habe ich alles im Makro auf 31999 Zellen erweitert.

ist es möglich anstatt Range("A7:A31999") auch vorgängig überprüfen, wie viele Zellen gefüllt sind und nur bis zu dieser Zelle durchlaufen zu lassen?

Bin in der Programmiersprache nicht sehr bewandt :$
Gast



Verfasst am:
30. Jan 2009, 13:05
Rufname:

AW: Funktion über ausgefüllten Bereich - AW: Funktion über ausgefüllten Bereich

Nach oben
       Version: Office 2003

klar, Du kannst mittels der "End"-Funktion überprüfen lassen, wie viele Zellen bereits gefüllt sind. Ähnliches geht auch mit der "CurrentRegion"-Funktion. Wie viele Zellen, Zeilen oder Spalten in einem Bereich drin sind, geht mit der "count" funktion. Hier also ein paar Beispiele:

Code:


Option Explicit 'wichtig! bedingt, dass Variablen deklariert sein müssen
Sub einigeBeispiele()
'------------------------------------'
'VARIABLE DECLARATION
'------------------------------------'
Dim rTestTable as Range 'eine Variable, die auf einen Bereich von Zellen verweisen kann
Dim ws as Worksheet 'eine Variable, die auf ein Worksheet verweisen kann
Dim iRows as Integer 'eine IntegerVariable
'------------------------------------'
'VARIABLE INITIALIZATION
'------------------------------------'
set ws = ActiveSheet 'jetzt verweist die Variable auf das (eben) aktuelle worksheet
set rTestTable = ws.Range("A1:C8") 'jetzt verweist rTestTable auf einen konkreten Bereich
'------------------------------------'
' PLAYING WITH "END"
'------------------------------------'
'Füllen einer Tabelle mit Daten
rTestTable.Value = 42
'Auffinden der letzten gefüllten Zelle in Spalte B:
ws.Cells(64000,2).End(xlUp)
'Auffinden der ersten freien Zelle in Spalte A:
ws.Cells(64000,1).End(xlUp).offset(1,0) 'offset-funktion: ".offset(zeilen, spalten)"
'------------------------------------'
' PLAYING WITH "COUNT"
'------------------------------------'
'Bestimmen der Anzahl von ZELLEN im Bereich "rTestTable"
MsgBox "rTestTable enhalt folgende Anzahl ZELLEN:" & rTestTable.count
'Bestimmen der Anzahl von SPALTEN im Bereich "rTestTable"
MsgBox "rTestTable enhalt folgende Anzahl Spalten:" & rTestTable.columns.count
'Bestimmen der Anzahl von ZEILEN im Bereich "rTestTable"
MsgBox "rTestTable enhalt folgende Anzahl Zeilen:" & rTestTable.rows.count
'Zuweisen von Werten an Integer-Variablen, Beispiel:
iRows =rTestTable.rows.count
End sub


Zeitaufwand: 15 min
mo
VB Amatuer


Verfasst am:
30. Jan 2009, 13:17
Rufname:


AW: Funktion über ausgefüllten Bereich - AW: Funktion über ausgefüllten Bereich

Nach oben
       Version: Office 2003

Hallo all Razz

Ich dann auch noch Very Happy

Mein geliebtes Sammelsurium 8)

Gruß Michael Rolling Eyes

Code:
Sub makro01()
Rem letzte zeile eines sheets
a = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Rem letze spalte eines sheets
b = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Rem letzte zeile einer spalte
c = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Rem letzte spalte einer zeile
d = ActiveSheet.Range("3:3").End(xlToRight).Column
End Sub
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Funktion zusammenbauen 34 Aloha 5198 01. Apr 2005, 15:51
Aloha Funktion zusammenbauen
Keine neuen Beiträge Excel Formeln: Verketten Funktion 4 hilfe 1169 14. März 2005, 17:19
Gast Verketten Funktion
Keine neuen Beiträge Excel Formeln: MID Funktion 2 filomen 943 03. Jan 2005, 17:02
filomen MID Funktion
Keine neuen Beiträge Excel Formeln: Benutzerdefinierte Funktion 1 Ottrick 2471 15. Dez 2004, 18:18
Robsl Benutzerdefinierte Funktion
Keine neuen Beiträge Excel Formeln: Verknüpfung mit ATPVBAEN.XLA / Eomonth Funktion 3 loisl04 5161 11. Dez 2004, 08:29
Thomas Ramel Verknüpfung mit ATPVBAEN.XLA / Eomonth Funktion
Keine neuen Beiträge Excel Formeln: HILFE: Bereich.verschieben 4 icke 719 15. Nov 2004, 18:15
icke HILFE: Bereich.verschieben
Keine neuen Beiträge Excel Formeln: Farbcodes in Wenn- Funktion einbauen 1 Plato 1563 27. Okt 2004, 09:13
icke Farbcodes in Wenn- Funktion einbauen
Keine neuen Beiträge Excel Formeln: wenn(oder)-Funktion mit 32 Argumenten 5 samba33 1784 25. Okt 2004, 12:17
samba33 wenn(oder)-Funktion mit 32 Argumenten
Keine neuen Beiträge Excel Formeln: wenn dann funktion klappt nicht 9 ReneZ. 1344 20. Okt 2004, 21:34
ReneZ. wenn dann funktion klappt nicht
Keine neuen Beiträge Excel Formeln: Funktion???- für das Zählen von Wörtern in einer Zelle 3 knopi2000 1250 21. Sep 2004, 12:43
knopi Funktion???- für das Zählen von Wörtern in einer Zelle
Keine neuen Beiträge Excel Formeln: Summe über bestimmten Bereich 4 simpson 5026 15. Sep 2004, 19:54
Arnim Summe über bestimmten Bereich
Keine neuen Beiträge Excel Formeln: Funktion: Identische Inhalt einer Zelle in Tabelle 1 und 2 4 luki 4202 09. Sep 2004, 18:20
Gast Funktion: Identische Inhalt einer Zelle in Tabelle 1 und 2
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum