Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erste freie Zeile...

Erste freie Zeile...
Gegga
Hallo an alle...
Wer kann mir folgendes ins VBA übersetzen?
SucheA
Suche erste freie Zeile in Sheet LIEF Spalte 6
Wenn dieser Wert > 71 verwende gefundenen Wert
Wenn der Wert <71 dann Suche erste freie Zeile ab 118
Wenn der Wert <146 dann Suche erste freie Zeile ab 193
SucheB
Suche erste freie Zeile in Sheet LIEF Spalte 37
Wenn dieser Wert > 71 verwende gefundenen Wert
Wenn der Wert <71 dann Suche erste freie Zeile ab 118
Wenn der Wert <146 dann Suche erste freie Zeile ab 193
Wenn SucheA > Suche B dann
Erste Frei Zeile = Suche A
Wenn SucheA < Suche B dann
Erste Frei Zeile = Suche B
Wenn SucheA = Suche B dann
Erste Frei Zeile = Suche A
Vielen Dank
Gruß Gegga

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Erste freie Zeile...
13.10.2010 13:50:17
Hajo_Zi
Hallo Gegga,
die erste freie Zelle ist immer kleiner 71 da Leer.

AW: Erste freie Zeile...
13.10.2010 14:21:00
Gegga
Hallo Hajo...
Sorry Missverständniss (oder blöd beschrieben...)
71 ist nicht der Zellinhalt sondern die Zeilennummer...
Zeile 1-45 sind befüllt, via UF werden Eintragungen gemacht, also wird 45-71 befüllt werden.
Wegen einem künstlich erzeugten Seitenumbruch darf ab 71 keine eintragung mehr sein und es muss bei Zeile 118 weiter eingetragen werden
Gruß Gegga
AW: Erste freie Zeile...
13.10.2010 16:38:40
Hajo_Zi
Hallo Gega,
ich habe die Bedingungen mal kopiert 

"Wenn dieser Wert > 71 verwende gefundenen Wert" das ist klar
"Wenn der Wert

Ich muss ehrlich sein das ist mir nicht einleuchtend. Ich klinke mich aus.
Gruß Hajo
Anzeige
AW: Erste freie Zeile...
14.10.2010 07:12:16
Gegga
Moin Hajo...
Jupp du hjast es richtig interpretiert.
Via UF werden immer 5 Zeilen eingetragen. Wenn z.b. Zelle 69 gefunden darf der Eintrag noch stattfinden.
Wird 70 gefunden auch noch bei 71 reicht der Platz nicht mehr aus.
Hintergund ist folgender:
Ich habe eine "Seite eingerichtet" wo in den Zeilen 1-43 bzw. 76-118 usw. Angaben gemacht werden. Sehe es wie eine Kopfzeile die auf jedem neuen Sheet auftauchen muss.
Da ich aus "Layoutgründen" keine Kopf bzw. Wiederholzeilen verwenden will (Ich möchte gerne die Angabe Seite X von Y in Zellen angeben, deshalb keine Wiederholzeilen, bzw. Kopfzeilen. Ausserdem wird der Wert der Seitenanzahl nochmals benötigt, deshalb die Angabe in Zellen) benötige ich hierfür das von mir angefragte Szenario...
Gruß Gegga
Anzeige
AW: Erste freie Zeile...
14.10.2010 07:44:28
Gegga
Nochmal Hallo
Habe zum besseren Verständniss mal eine Tabelle mitangehängt, vielleicht ist es so besser Verständlich was ich benötige.
https://www.herber.de/bbs/user/71908.xls
Gruß Gegga
AW: Erste freie Zeile...
17.10.2010 14:04:33
fcs
Hallo Gegga,
hier Makro+Function, die folgende Einfügezeile ermitteln.
Gruß
Franz 
Sub aaTest()
Dim ZeileL As Long
ZeileL = Application.WorksheetFunction.Max( _
LetzteZeile(wks:=Worksheets("Tabelle1"), Spalte:=1), _
LetzteZeile(wks:=Worksheets("Tabelle1"), Spalte:=4))
MsgBox "Einfügezeile: " & ZeileL
End Sub
Function LetzteZeile(wks, Spalte) As Long
Dim Zeile As Long
With wks
For Zeile = .Cells(.Rows.Count, Spalte).End(xlUp).Row To 1 Step -1
If Not IsEmpty(.Cells(Zeile, Spalte)) Then
Select Case Zeile
Case 46 To 77, 129 To 166, 218 To 250
LetzteZeile = Zeile + 1
Case Is >= 251
MsgBox "Seite 3 ist voll"
LetzteZeile = Zeile + 1
Case 167 To 172
LetzteZeile = 218
Case 78 To 83
LetzteZeile = 129
Case Is  0 Then Exit For
End If
Next
End With
End Function

Anzeige

303 Forumthreads zu ähnlichen Themen

Werte in nächste freie Zeile schreiben
Nopummel

Hallo zusammen,
ich möchte Daten aus einer Datei in eine andere kopieren, dabei sollen die Werte in die nächste freie Zeile geschrieben werden. Das Problem dabei ist, dass ich die Daten aus verschiedenen genau gleich aufgebauten Dateien rasukopieren will. D.h Aus Datei A kopiere ich 5 Zeile...
15.09.2009 10:05:34
Thread-ID: 1102849
5 Beiträge
Anzeige
nach filter erste zeile finden
abu

Hallo Zusammen,
ich hab ein kleines Problem und hoffe das mir hier jemand helfen kann.
Schreibe grad ein Makro um ein paar arbeiten zu vereinfachen:
1. setze Filter
2. loesche alle Zeilen
Mein Problem ist wie ich Excel sage wo die erste Zeile ist. Also die erste Zeile ist na...
28.04.2010 12:58:42
Thread-ID: 1154286
4 Beiträge
erste freie Zeile suchen aber nur bis Zeile 40
Reinhardt

Hallo,
ich möchte mit u.a.Code ein "PASTE" in die erste freie Zeile in Spalte G durchführen.
Jedoch soll nur der Bereich bis Zeile 40 berücksichtigt werden.
Wie schreibt man so etwas?
Gruß aus Lübeck
Reinhardt.
Sub Schritt02() 'Eintragen zur Vorbereitung für ArchivB Shee...
23.10.2010 12:13:40
Thread-ID: 1183617
7 Beiträge
Anzeige
1. freie Zeile trotz Autofilter finden
Dietmar

Hallo zusammen,
mit folgendem (erkennbar umständlichem) Code übertrage ich Daten in eine Endlos-Tabelle zwecks durchzuführender Auswertungen.
Die Daten aus A28:Z28 resultieren aus Verknüpfungen von anderen Sheets, die ich auf dem Umweg der Umwandlung in Werte in Zeile 30 eintrage (ich w...
21.03.2011 16:52:28
Thread-ID: 1206687
6 Beiträge
erste freie Zeile suchen
René

Hallo,
ich möchte ausgewählte Texte aus ComboBoxen und TextBoxen aus einer UserForm in ein Tabellenblatt übernehmen.
Funktioniert auch mit
Hier nur mal für das Auslesen einer ComboBox. Werden aber mehrere ausgelesen und die Werte stehen dann in Tabelle 1 hintereinander in einer Zei...
24.03.2011 15:50:04
Thread-ID: 1207434
2 Beiträge
erste freie Zeile in Zieltabelle finden
René

Hallo liebe Excelgemeinde,
ich will eine Datentabelle aus einer Datei in eine andere Datei kopieren.
Mein Problem ist das die Daten immer in der Zeiltabelle überschrieben werden weil die erste freie Zeile nicht gefunden wird. Kann mir bitte jemand an der Modifizierung des Makros helfen?...
05.04.2011 18:45:35
Thread-ID: 1209134
7 Beiträge
letzte Zeile in erste freie Zeile
Michel

Hallo zusammen,
wie kann ich die letzte ausgefüllte Zeile, aber nur den Bereich der Zellen G:Q der Tabelle1 kopieren und in die erste freie (nicht ausgefüllte) Zeile des Zellenbereichs B:L der Tabelle 2 einfügen?
Ich hoffe, dass ich mich für mein Anliegen klar ausgedrückt habe.
Ich...
15.05.2011 11:51:08
Thread-ID: 1214532
28 Beiträge
Werte in TATSÄCHLICH erste freie Zeile trotz Filte
Dietmar

Hallo zusammen,
folgender Code funktioniert ganz gut, hat aber noch Verbesserungspotential.
Die Prozedur ist Teil eines übergeordneten Codes; der Aufruf erfolgt mit Application.Run ...
1.) Wenn Filter gesetzt ist werden keine Daten in die erste freie Zeile eingetragen, weil der Show...
17.01.2012 12:51:12
Thread-ID: 1246531
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
3
6
2
5
1
6
27
2
1
2
3
2
2
19
14
2
11
4
3
11
3
4
1