Makro Programmierung Excel - VB

[Chemiker]

Hallo atgis,

verstehe ich nicht, wie schnell kann’s Du denn schreiben? Du willst die Daten doch in einem Formular eingeben und dann mit einem Maus-Click in die Tabelle übertragen.

Bis bald Chemiker

[atgis]

Genau...aber bis die 5 Werte in meiner Tabelle stehen vergehen 2 sek^^... Das macht im Prinzip zwar nichts, aber man merkt, damit erst alle 65536 Zeilen durchgezählt werden. Also hab ich das mal so versucht zu optimieren:

Ich zähle in einer anderen Zelle wie Viele Zeilen bereits einen Inhalt haben:
=ZÄHLENWENN(A1:A65536;"<>") 'Das macht eine Excel Funktion

Delphi-Quellcode:

Function letzteZeile() As Long
   Dim i As Integer, letzteMin As Long, letzteMax As Long
   For i = 1 To 256
      letzteMin = Cells(Sheets("Tabelle1").Cells(1, 6) + 1, i).End(xlUp).Row
      If letzteMax < letzteMin Then
         letzteMax = letzteMin
      End If
   Next i
   letzteZeile = letzteMax
End Function

Dann zähle ich den Wert aus dieser Zelle + 1...


Jetzt funktioniert es wie ich es wollte! Vielen Dank Chemiker

[Grumble]

du koenntest auch die tag eingenschaft des buttons als zaehler benutzen, d.h. die zuletzt geschriebene zeilennummer dort eintragen


du kannst dir auch das zaehlen bis 65xxx ersparen wenn du nach der zuletzt geschriebenen zeile so suchst :

Delphi-Quellcode:

for i = 1 to 65000
  if cells(i,1) = "" then exit for
next i

i sollte dann die erste leere zelle in spalte eins liefern

[Chemiker]

Hallo Grumble,

es funktioniert aber nur, wenn sich keine leere Zelle in der Spalte befindet.

Bis bald Chemiker

[Amateurprofi]

@atgis:
Wenn ich das alles richtig verstanden habe, möchtest du sicherstellen, daß neue Eingaben immer in die Zeile gestellt werden, die unter der bisher letzten Zeile der Tabelle liegt.

Ich benutze für solche Zwecke folgende 3 Lösungen um die bisher letzte Zeile einer Tabelle zu bestimmen

Delphi-Quellcode:

Function LastRow1() As Long
    LastRow1 = ActiveSheet.Cells(1, 1).End(xlDown).Row
End Function

Delphi-Quellcode:

Function LastRow2() As Long
    LastRow2 = ActiveSheet.Cells(65536, 1).End(xlUp).Row
End Function

Delphi-Quellcode:

Function LastRow3() As Long
    With ActiveSheet.UsedRange
        LastRow3 = .Row + .Rows.Count - 1
    End With
End Function

Version 1 und 2 sind dann problematisch wenn die Tabelle nicht vollständig gefüllt ist.
Version 3 dürfte die zuverlässigste sein, weil hier gleichgültig ist, wo auf dem Sheet sich die Tabelle befindet und ob alle Zeilen der Tabelle vollständig gefüllt sind. Diese Version gibt immer die unterste nichtleere Zeile des WorkSheets zurück.

[QuizMaster]

Nur so am Rande, für alle Excel- und VB- fragenden...
Da gäbs noch ein Klasse Excel forum,...

http://www.vb-fun.de/vb/index.htm

Aber noch besser sind dort die Beispielprojekte
(auch ein Ende Zeilen/ Spaltenprojekt,... was ja hier benötigt wurde)

Reinschauen lohnt sich,...
ich hoffe ich hab mich jetzt nicht strafbar gemacht, indem ich
ein anderes forum vorgeschlagen hab

Also chiao
QuizM