Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1304to1308
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
Erste Leere Zeile finden
15.03.2013 08:44:16
Breuer
Hallo,
habe folgendes Problem.
Ich möchte Daten aus einer UserForm in eine Tabelle übernehmen.
Die Tabelle besteht aus 3 Spalten (Name,Vorname,Nr.).
Ausserdem hat die Tabelle die o.g. Überschriften.
Ich habe zwar den Code für die Erste Leere Zeile gefunden, jedoch kommen die Überschriften später nochmal. Und da ist mein Problem!
Die Daten werden hinter die 2 Überschriften geschrieben.
Meine Frage daher, kann man den Code so schreiben das geprüft wird ob in der Tabelle weitere Überschriften vorhanden sind und diese ausgelassen werden.
Hier ist der Code den ich benutze.
Dim intErsteLeereZeile As Long
intErsteLeereZeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
Tabelle1.Cells (intErsteLeereZeile, 1).Value = me.txtName
Tabelle1.Cells (intErsteLeereZeile, 2).Value = me.txtVorname
Tabelle1.Cells (intErsteLeereZeile, 1).Value = me.txtNummer
Gruß Thomas

19
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erste Leere Zeile finden
15.03.2013 08:46:32
Hajo_Zi
Hallo Thomas,
Option Explicit
Sub naechste_leere_Zelle()
'* H. Ziplies                                     *
'* 11.06.2012                                     *
'* erstellt von HajoZiplies@WEB.de     Spam       *
'* http://Hajo-Excel.de
Dim RaFound As Range
' Spalte A
Set RaFound = Range("A1:A" & Rows.Count).Find("", , , xlPart, , xlNext)
If Not RaFound Is Nothing Then
MsgBox RaFound.Address
End If
Set RaFound = Nothing
End Sub

Anzeige
AW: Erste Leere Zeile finden
15.03.2013 09:10:25
Breuer
Sorry bin totaler Anfänger mit VBA,
ersetzt das meinen code oder muss ich den hinzufügen

AW: Erste Leere Zeile finden
15.03.2013 09:15:55
Hajo_Zi
dDu hast einen Code erstellt, da bin ich davon ausgegangen Du bekommst es angepast.
Option Explicit
Sub naechste_leere_Zelle()
' intErsteLeereZeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
' ersetzen durch
'* H. Ziplies                                     *
'* 11.06.2012                                     *
'* erstellt von HajoZiplies@WEB.de     Spam       *
'* http://Hajo-Excel.de
Dim RaFound As Range
' Spalte A
Set RaFound = Range("A1:A" & Rows.Count).Find("", , , xlPart, , xlNext)
If Not RaFound Is Nothing Then
intErsteLeereZeile = RaFound.Address
Else
intErsteLeereZeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Set RaFound = Nothing
End Sub
Gruß Hajo

Anzeige
AW: Erste Leere Zeile finden
15.03.2013 09:42:48
Breuer
irgendwie funktioniert das nicht,
wenn ich auf den übernehmen knopf drücke werden jetzt gar keine daten übernommen.

AW: Erste Leere Zeile finden
15.03.2013 09:43:41
Hajo_Zi
ich sehe die Datei nicht.
Gruß Hajo

AW: Erste Leere Zeile finden
15.03.2013 09:52:26
Breuer
Es funktioniert nicht, hier meine Eingabe.
Private Sub übernehmen_Click ()
' Spalte A
Dim RaFound As Range
Set RaFound = Range("A1:A" & Rows.Count).Find("", , , xlPart, , xlNext)
If Not RaFound Is Nothing Then
intErsteLeereZeile = RaFound.Address
Else
intErsteLeereZeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Set RaFound = Nothing
' Spalte B
Dim RaFound As Range
Set RaFound = Range("B1:B" & Rows.Count).Find("", , , xlPart, , xlNext)
If Not RaFound Is Nothing Then
intErsteLeereZeile = RaFound.Address
Else
intErsteLeereZeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Set RaFound = Nothing
' Spalte C
Dim RaFound As Range
Set RaFound = Range("C1:C" & Rows.Count).Find("", , , xlPart, , xlNext)
If Not RaFound Is Nothing Then
intErsteLeereZeile = RaFound.Address
Else
intErsteLeereZeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Set RaFound = Nothing
End Sub

Anzeige
AW: Erste Leere Zeile finden
15.03.2013 09:55:54
Hajo_Zi
Du willst also nicht mehr kopieren.
Die Zeile
Dim RaFound As Range
sollte nur einmal stehen. Bei mir läuft der Code durch.
Gruß Hajo

AW: Erste Leere Zeile finden
15.03.2013 10:05:55
Breuer
Vielleicht habe ich mich falsch ausgedrückt.
Mein Ziel ist es Daten aus einer Userform per befehlsschaltfläche (Übernehmen) in Tabelle1 zu übernehmen. In der Userform gibt es 3 Textfelder (Name,Vorname,Nr.).
In Tabelle1 ist die erste Zeile mit Überschriften bestückt.
Darunter sollen die Daten durch die userform eingetragen werden.
Nach etwa 30 Zeilen folgen wieder die Überschriften.
Problem war es das die Daten nicht in den leeren Zwischenraum (zwischen der 1. Überschrift und der 2 Überschrift) sondern hinter der 2.Überschrift eingetragen wurden.

Anzeige
AW: Erste Leere Zeile finden
15.03.2013 10:07:11
Hajo_Zi
warunm hälst Du dich nicht an meinen Vorschlag?
Du möchtest das nicht. Ich bin dann raus.

AW: Erste Leere Zeile finden
15.03.2013 10:10:21
Breuer
Ich habe es ja ausprobiert, es funktioniert nicht,
ich weiß nicht was ich falsch mache.
Ich kenn mich mit VBA nicht so gut aus.

AW: Erste Leere Zeile finden
15.03.2013 10:40:39
JACKD
Hallo Breuer
Das kann auch nicht funktionieren. Da Hajo "Option Explicit" drüber geschrieben hat, aber dann die variable "intErsteLeereZeile" nicht dimensioniert hat.
Zudem, wenn man sie nur stupide rüber kopiert, entsteht ein Syntaxfehler durch das runtergerutschte Sternchen.
String ist zwar sicher nicht die richtige Dimensionierung, aber sie funktioniert
Option Explicit
Sub naechste_leere_Zelle()
' intErsteLeereZeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
' ersetzen durch
'* H. Ziplies                                     *
'* 11.06.2012                                     *
'* erstellt von HajoZiplies@WEB.de     Spam       *
'* http://Hajo-Excel.de
Dim RaFound As Range
Dim intErsteLeereZeile As String
' Spalte A
Set RaFound = Range("A1:A" & Rows.Count).Find("", , , xlPart, , xlNext)
If Not RaFound Is Nothing Then
intErsteLeereZeile = RaFound.Address
Else
intErsteLeereZeile = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
'' hier
RaFound.Value = Userform1.textbox1.value
''bis hier kommt dein Übertrag rein
Set RaFound = Nothing
End Sub
Grüße

Anzeige
AW: Erste Leere Zeile finden
15.03.2013 10:47:27
Hajo_Zi
die Varibale wurde schon verwedet, da gehe ich davon aus sie ist Dimensioniert. Ich habe ja nur eine Ergänzung mitgeteilt.

AW: Erste Leere Zeile finden
15.03.2013 10:50:25
JACKD
Kein Vorwurf Hajo, kein Vorwurf.
Nur eine Erläuterung für Breuer, warum es sein kann. Und bei kaum VBA Kenntnissen kann ich mir gut Vorstellen, dass er noch nie was davon gehört hat..
btw. was wäre denn die passendere Dimensionierung?
Grüße

AW: Erste Leere Zeile finden
15.03.2013 10:51:25
Hajo_Zi
Long da es ja eine Zeile ist.

Anzeige
AW: Erste Leere Zeile finden
15.03.2013 10:59:19
JACKD
Aber long ist ja mit Range unverträglich

AW: Erste Leere Zeile finden
15.03.2013 11:00:22
Hajo_Zi
wie ist das gemeint?
Gruß Hajo

AW: Erste Leere Zeile finden
15.03.2013 11:04:44
JACKD
Nun, du weist
intErsteLeereZeile = RaFound.Address
zu
das wäre dann
long = range
funzt ja nicht...
Oder hab ich grad einen Fehler in meiner Denke?

AW: Erste Leere Zeile finden
15.03.2013 11:06:45
Hajo_Zi
Fehler vom Amt
RaFound.Row
Gruß Hajo

AW: Erste Leere Zeile finden
15.03.2013 11:08:44
JACKD
Blos gut, dann hab ich mal richtig gedacht =)
Anzeige

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige