Office: Daten ab einem bestimmten Punkt in nächste freie Zeile einfügen

sabo92 · 25. November 2015

Hallo zusammen,

ich benötige dringend Hilfe bei der Umsetzung folgender Aufgabenstellung.

Ich habe eine Excel Liste mit mehreren Sheets. Im Sheet "Eingabemaske" werden von Zelle B4 bis AA4 Daten eingegeben. Diese Daten sollen je nachdem was man in der Dropdown- Liste ausgewählt hat in den jeweiligen Sheets eingefügt werden. Funktioniert soweit prima.

Allerdings habe ich in dem ersten Sheet eine Zusammenfassung aller anderen Sheets. Diese verändert sich ständig.

In Zeile B soll nach Kunden gesucht werden. Funktioniert mit:

Code:

Sub Suche()

With Sheets("Übersicht")
Suchwert = "meier"
For i = .Cells(Rows.Count, "B").End(xlUp).Row To 2 Step -1
If .Cells(i, "B") Like Suchwert Then Zeilennummer = i
Next

MsgBox (Zeilennummer)
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die entsprechende Zeilennummer wird korrekt ausgegeben.

Nun zu meiner Frage:

Wie suche ich ab dieser Stelle nach der nächsten freien Zeile und füge dort eine neue Zeile (mit den Daten aus der "Eingabemaske") ein?

Danke im Voraus

:)

hary · 26. November 2015

Moin
Was ist wenn kein meier vorhanden?
Ohne den Aufbau zu kennen.
Code:

Dim zelle As Range
Dim naechste As Long
Dim suchwert As String
suchwert = "meier"
With Worksheets("Übersicht")
Set zelle = .Columns(2).Find(What:=suchwert, LookIn:=xlValues, lookat:=xlWhole)
If Not zelle Is Nothing Then
naechste = .Cells(zelle.Row, 2).End(xlDown).Row + 1
.Rows(naechste).Insert
Worksheets("Eingabemaske").Range("B4:AA4").Copy .Cells(naechste, 2)
End If
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

KimmichsBar · 26. November 2015

Guten Morgen,

mit folgendem Code kannst du ab einer bestimmten Zelle die nächste freie Zelle suchen:

Code:

Cells(1, 1).End(xlDown).Offset(1, 0).Row
cells(65000,1).end(xlup).offset(1,0).Row
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die erste Zeile sucht von oben nach unten die erste freie Zelle.
Die zweite Zeile sucht von unten her die Zelle unter der letzten beschriebenen.
Musst dir jetzt nur raussuchen was du für für deine Bedürfnisse brauchst, ich vermute Nummer 2 ist am besten, wenn man was unten anfügen will, denn falls eine Zelle mitten in der Tabelle leer ist wird diese mit der ersten Variante ausgewählt.

Und so kannst du aus Tabelle 1 etwas kopieren und in Tabelle zwei einfügen.

Code:

Tabelle1.Range("A1:A9").Copy Destination:=Tabelle2.Range("A1")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Zellen/Bereiche die ausgewählt werden musst du dann noch anpassen.

Gruß
Daniel

sabo92 · 26. November 2015

Erst einmal vielen Dank für die Antworten.

@hary
Die Kunden sind fest und werden nicht aus der Liste gelöscht.
Dein Suchcode funktioniert leider nur, wenn der gesuchte Kunde der erste in der Liste ist. Ich habe in meiner Tabelle folgenden Aufbau:
B1 Leer
B2, B3 Beschreibung
B4 Leer
B5-B10 "Meier"
B11 Leer
B12-B16 "Schmitt"
B17 Leer
B18- ...

Wenn ich also Schmitt suchen will, der nicht der letzte Kunde ist (von daher funktionieren deine Codes leider auch nur bedingt @Daniel) brauche ich einen anderen Suchcode.
Ich habe allerdings wie geschrieben auch schon einen funktionierenden.

Ich brauche nur noch Hilfe beim Suchen der nächsten freien Zeile ab z.B. "Schmitt" und wie ich dort eine neue Zeile einfüge und nicht die bestehende überschreibe.

Gruß Sabo

hary · 26. November 2015

Moin
Dann versuch es so.
Code:

Dim zelle As Range
Dim naechste As Long
Dim suchwert As String
suchwert = "schmitt"
With Worksheets("Übersicht")
Set zelle = .Columns(2).Find(What:=suchwert, LookIn:=xlValues, lookat:=xlWhole)
If Not zelle Is Nothing Then
naechste = zelle.Offset(zelle.CurrentRegion.Rows.Count, 0).Row
.Rows(naechste).Insert
Worksheets("Eingabemaske").Range("B4:AA4").Copy .Cells(naechste, 2)
End If
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

KimmichsBar · 26. November 2015

Moin Sabo,

dann müsstest du in den .Find Befehl von hary nur um den grünen Zusatz ergänzen:
Code:

Set zelle = .Columns(2).Find(What:=suchwert, LookIn:=xlValues, lookat:=xlWhole, SearchDirection:=xlPrevious)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das sollte klappen.

Gruß
Daniel

EDIT: Oder du machst es so wie er es selber vorgeschlagen hat *biggrin.gif*

hary · 26. November 2015

Moin Daniel
Danke fuer's einbessern. War aus dem Kopp geschrieben.
gruss hary

sabo92 · 26. November 2015

Klasse! Funktioniert! Vielen Dank euch beiden *Smilie

Office: Daten ab einem bestimmten Punkt in nächste freie Zeile einfügen

Daten ab einem bestimmten Punkt in nächste freie Zeile einfügen

Daten ab einem bestimmten Punkt in nächste freie Zeile einfügen

Daten ab einem bestimmten Punkt in nächste freie Zeile einfügen

Daten ab einem bestimmten Punkt in nächste freie Zeile einfügen

Daten ab einem bestimmten Punkt in nächste freie Zeile einfügen - Similar Threads - Daten bestimmten Punkt

Bestimmte Ziffern in Zelle entfernen

Bestimmte Daten in neues Tabellenblatt übernehmen, ohne Leerzeichen

bestimmte Daten sortiert in zweites Tabellenblatt einfügen

Bestimmte Daten zwischen innerhalb eines Datumsbereichs einer Tabelle Anfügen

Daten in andere Tabellen übernehmen bei bestimmter Auswahl

Anordnen von Daten für bestimmte Diagrammtypen in Excel für Mac

Daten in bestimmtes Feld in Access Formular