Excel Formeln nur für bestimmten Bereich

[corner 11]

Hallo,

 

ich würde gerne ein Excelsheet bauen, in dem ein Tabellenblatt mit Daten gefüttert wird. Im zweiten Tabellenblatt sollen dann automatisch diese Daten aus Tabellenblatt 1 verarbeitet werden und mit Formeln neue Spalten gebaut werden. Das klappt auch alles wunderbar.

Nur muss ich ja im zweiten Tabellenblatt festlegen, wie weit die Formeln runtergezogen werden. Zum Beispiel habe ich einen Datensatz mit 50 Zeilen und einen anderen mit nur 10 Zeilen. Soll alles nun automatisch geschehen, bekomme ich im zweiten Tabellenblatt bei den 10 Zeilen die Daten alle korrekt angezeigt. Die unteren Zeilen (also nach der 10ten Zeile) enthalten aber Nullen.

 

Nun meine Frage:

Ist esmöglich diese Nullen wegzubekommen? Und zwar so dass auch wirklich Nichts drinsteht, also auch keine Formel. Sprich: Ich möchte Excel im Tabellenblatt 2 sagen:

Schau bitte in Tabellenblatt 1 wieviele Datensätze dort eingespielt werden und diese Daten übernimm bitte und bearbeite sie. Aber nur diese und keine Zeile mehr.

 

Denn wenn ich mit einer "WENN"-Bedingung abfrage ob das Feld gefüllt ist oder nicht und bei leeren Feldern ihn "" hinschreiben lasse, so habe ich das Problem beim weiterbearbeiten der Daten, dass ich wenn ich eine Formel für die ganze Spalte runterkopieren will (mit Doppelklick auf den entsprechenden Punkt), dass dann nicht am Ende der echten Daten Schluss ist, sondern auch die ausgenullten Felder mit der Formel bearbeitet werden.

 

So hoffe es ist klar geworden was ich will.

Wenn nicht einfach fragen.

 

Gruß

 

corner

[Sigma 10]

Hi,

 

ich kenne mich mit den Möglichkeiten der Formeln in Zellen nur begrenzt aus. Deshalb würde ich das per Makro lösen.

 

Eine einfache Möglichkeit wäre das Prüfen der ersten Spalte, hier ab Cursor bis zum Ende:

 

Sub ZeilenZaehlen()
   Dim letzteZeile As Long
   Dim ersteZeile As Long
   ersteZeile = ActiveCell.Row
   letzteZeile = ActiveCell.Row - 1

   ' prüfen, bis zu welcher Zeile die Zellen der ersten Spalte nicht leer sind
   Do
       letzteZeile = letzteZeile + 1
       If ActiveSheet.Cells(letzteZeile, 1) = Empty Then Exit Do
   Loop
   MsgBox ("Es sind " & letzteZeile - ersteZeile & " Datensätze.")
End Sub

 

Mit der Information der Anzahl der Datensätze läßt sich dann das Erstellen des anderen Tabellenblattes durch ein weiteres Makro durchführen.

 

Das Ganze setzt natürlich voraus, das man Makros ausführen kann und will.

 

Tschau,

 

Sigma