Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2025 12:31:51
Pivot-Filter aus Zelleninhalt mit VBA
23.04.2025 09:49:26
Garantie-Restlaufzeit berechnen
23.04.2025 09:33:33
Höchste werte inkl. Dopplungen
23.04.2025 08:56:57
Variablen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

1te leere Zeile ?

Forumthread: 1te leere Zeile ?

1te leere Zeile ?
22.08.2002 10:02:20
Rainer K.
Hallo Forum !

Ich habe Tabellenblätter in denen die Gutstunden der Mitarbeiter aufgelistet werden. Ganz unten werden sie summiert. Bisher habe ich, wenn nur noch 5 Zeilen zwischen dem letzten Eintrag und den Ergebnissen frei waren, den Abstand durch hinzufügen von neuen Zeilen und herunterkopieren der Formeln wieder vergrößert. Dies würde ich gerne über ein Macro machen. Wie kann ich aber feststellen welches die erste leere Zeile von oben ist ?

Gruß
Rainer

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: 1te leere Zeile ?
22.08.2002 10:21:24
L.Vira
Beispiel geht von Eingabe in Spalte A aus:
Wieviel Zeilen frei sein sollen, kannst du mit der Variablen
Voraus festlegen.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim TR As String, Voraus As Long
Voraus = 5
If Target.Cells.Count > 1 Then Exit Sub
'in diesem Beispiel ist die Eingabespalte A
If Target.Column <> 1 Then Exit Sub
summe = Left(Target.Offset(Voraus, 0).FormulaLocal, 6)
If summe = "=SUMME" Then
ActiveCell.Offset(1, 0).EntireRow.Insert
Application.EnableEvents = False
[a65536].End(xlUp).ClearContents
Application.EnableEvents = True
TR = [a65536].End(xlUp).Offset(Voraus, 0).Address(False, False)
[a65536].End(xlUp).Offset(Voraus + 1, 0) = "=Sum(A2:" & TR & ")"
End If
End Sub
Anzeige
Re: 1te leere Zeile ?
22.08.2002 10:23:38
Rainer K.
Hallo !

Vielen Dank ! Ich glaube das hilft mir weiter, werde ich gleich mal versuchen.

Gruß
Rainer

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige