Nächste leere Zeile suchen und ausfüllen

Regnar · 2005-07-04T15:18:20+00:00

Moin liebe Excelgemeinde, ich habe eine User Form die Daten in ein Excelblatt übertragen soll. Bisher tut sie das logischerweise nur für die zweite Zeile. Ich möchte, daß er das in die nächste freie Zeile schreibt so, dass er die Daten nicht überschreibt! Der Code sieht so aus: Private Sub Fertig_Click() Tabelle1.Cells(2, 2).Value = Zollnummer Tabelle1.Cells(2, 3).Value = Artikelpreis Tabelle1.Cells(2, 4).Value = LandBox Tabelle1.Cells(2, 6).Value = Versandkosten Me.Hide Positionenbildschirm.Show End Sub Wie muss dieser ergänzt werden? Und nöch eine Frage wie lautet der Code wenn man für einen Button den "Datei Öffnen" Befehl hinterlegen will? Gruß und Vielen Dank

Hi Regnar
hier hast Du was zur Auswahl:


Function LetzteZeile _
(objSheet As Worksheet, _
strStartCell As String) As Range 'fuer die letzte Zeile eines zusammenhaengenden Bereichs:
Dim objRange As Range
Dim lngLastRow As Long
Dim lngLastCol As Long
Set objRange = objSheet _
.Range(strStartCell).CurrentRegion
lngLastRow = objRange.Row + _
objRange.Rows.count - 1
lngLastCol = objRange.Column + _
objRange.Columns.count - 1
With objSheet
Set LetzteZeile = .Range _
(.Cells(lngLastRow, objRange.Column), _
.Cells(lngLastRow, lngLastCol))
End With
End Function


Function LetzteSpalte _
(objSheet As Worksheet, _
strStartCell As String) As Range 'fuer die letzte Spalte eines zusammenhaengenden Bereichs:
Dim objRange As Range
Dim lngLastCol As Long
Dim lngLastRow As Long
Set objRange = objSheet _
.Range(strStartCell).CurrentRegion
lngLastCol = objRange.Column + _
objRange.Columns.count - 1
lngLastRow = objRange.Row + _
objRange.Rows.count - 1
With objSheet
Set LetzteSpalte = .Range _
(.Cells(objRange.Row, lngLastCol), _
.Cells(lngLastRow, lngLastCol))
End With
End Function


Function AbsLetzteZeile _
(objSheet As Worksheet) As Range 'fuer die letzte benutzte Zeile eines Tabellenblatts:
Dim objLastCell As Range
Dim lngLastRow As Long
Set objLastCell = objSheet _
.Cells.SpecialCells(xlCellTypeLastCell)
lngLastRow = objLastCell.Row
Set AbsLetzteZeile = objSheet _
.Rows(lngLastRow).EntireRow
End Function


Function AbsLetzteSpalte _
(objSheet As Worksheet) As Range 'fuer die letzte benutzte Spalte eines Tabellenblatts:
Dim objLastCell As Range
Dim lngLastCol As Long
Set objLastCell = objSheet _
.Cells.SpecialCells(xlCellTypeLastCell)
lngLastCol = objLastCell.Column
Set AbsLetzteSpalte = objSheet _
.Columns(lngLastCol).EntireColumn
End Function

'z.B.LetzteZeile(ActiveSheet, "A3").Offset(1, 0).Select
oder auch noch:


Sub letzteZelle()
Dim lR
lR = Worksheets("Tabelle1").Cells(Rows.count, 1).End(xlUp).Row
MsgBox lR
End Sub

Ich hoffe, Du hast genügend Auswahlmöglichkeit
Gruss Dieter

Nächste leere Zeile suchen und ausfüllen

Forumthread: Nächste leere Zeile suchen und ausfüllen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Nächste leere Zeile in Excel finden und ausfüllen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Nächste leere Zeile suchen und ausfüllen

Forumthread: Nächste leere Zeile suchen und ausfüllen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Nächste leere Zeile in Excel finden und ausfüllen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread