Live-Forum - Die aktuellen Beiträge
Datum
Titel
22.04.2024 22:36:13
Marko automatisch ausführen
22.04.2024 21:15:10
PQ - Wenn der Jahrgang fehlt, dann...
22.04.2024 16:32:43
Excelformel für Arbeitszeitberechnung 08-16:30 Uhr
22.04.2024 16:03:42
Alle Blätter einer Datei wählen und Druckbereich festlegen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1632to1636
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
1632to1636
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erste freie zeile Finden und was reinschreiben

Erste freie zeile Finden und was reinschreiben
10.07.2018 22:46:29
Tobias
Hallo Leute,
ich habe eine Tabelle in der A oder B eine Nummer steht.
Nun möchte ich per Makro in die erste Zeile in der in A und B nichts steht was reinschreiben.
Wie kann ich das machen? 

Erste Zeile finden in der in A und B nichts steht
ActiveCell.Select
ActiveCell = Nummer
'Selection.Offset(0, 1) = Bleibt  leer !
Selection.Offset(0, 2) = Anrede
Selection.Offset(0, 3) = Vorname
Selection.Offset(0, 4) = Nachname
Selection.Offset(0, 5) = Strasse
Selection.Offset(0, 6) = PLZ
Selection.Offset(0, 7) = Ort
ActiveWorkbook.Save

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erste freie zeile Finden und was reinschreiben
11.07.2018 07:16:21
KlaWet
Guten morgen Tobias,
versuch es mal so:
With ActiveSheet
'erste freie Zeile für jede Spalte ermitteln
lngLast(1) = .Cells(Rows.Count, "A").End(xlUp).Row + 1
lngLast(2) = .Cells(Rows.Count, "B").End(xlUp).Row + 1
'maximale Zeile ermitteln
lngLast(0) = Application.WorksheetFunction.Max(lngLast(1), lngLast(2))
' Eintragen
.Range("A" & lngLast(0)) = "Nummer"
'.Range("B" & lngLast(0)) = LEER
.Range("C" & lngLast(0)) = "Anrede"
' Speichern
ActiveWorkbook.Save
End With
Gruß
Klaus
AW: Erste freie zeile Finden und was reinschreiben
11.07.2018 07:17:31
KlaWet
Guten morgen Tobias,
versuche es mal so:
With ActiveSheet
'erste freie Zeile für jede Spalte ermitteln
lngLast(1) = .Cells(Rows.Count, "A").End(xlUp).Row + 1
lngLast(2) = .Cells(Rows.Count, "B").End(xlUp).Row + 1
'maximale Zeile ermitteln
lngLast(0) = Application.WorksheetFunction.Max(lngLast(1), lngLast(2))
' Eintragen
.Range("A" & lngLast(0)) = "Nummer"
'.Range("B" & lngLast(0)) = LEER
.Range("C" & lngLast(0)) = "Anrede"
' Speichern
ActiveWorkbook.Save
End With
Gruß
Klaus
Anzeige
AW: Erste freie zeile Finden und was reinschreiben
11.07.2018 19:11:10
Tobias
Vielen Dank Klaus
Es erscheint bei mir eine Fehlermeldung
"Fehler beim Kompilieren, Erwartet Datenfeld"
Was muss ich tun?
Vielen Dank Tobi
AW: Erste freie zeile Finden und was reinschreiben
16.07.2018 08:49:59
KlaWet
Hi Tobias,
sorry für die späte Rückmeldung.
Bitte Code so ergänzen: 
Dim lngLast(0 to 2) as Long

Das muss ganz oben im Code dazu, dann sollte es tun.
Gruß
Klaus

94 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...
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...
13.10.2010 13:50:17
Thread-ID: 1182244
7 Beiträge
Anzeige
nächste freie Zeile
Peter

Hallo an alle,
ich habe eine ständig größer werdende Datei, mit z.Zt. 200 Zeilen.
Wenn ich z.B. in der Zeile 15 etwas ändere muß ich immer wieder runterscrollen
um in nächste freile Zeile zu kommen. Je mehr Zeilen es werden um so mehr
scrolle ich da immer wieder runter in die n...
17.02.2011 17:48:42
Thread-ID: 1201539
3 Beiträge
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
Anzeige

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
6
2
5
1
6
27
2
1
2
3
2
2
19
14
2
4
3
3
4
1
4