VBA Wenn Zelle voll dann/leer dann
16.12.2020 11:48:24
Tim
ich hab diesmal gleich 2 Probleme zu den ich keine Lösung finden konnte die mein Problem beschreibt.
Ich möchte Daten aus einem Formblatt in eine Tabelle übertragen.
Problem hierbei ist, dass bei den einzelnen Personen einige Eigenschaften durchs Formblatt vorgegeben sind. Einiges muss also mehrfach kopiert und eingefügt werden. Soweit so gut.
Problem 1:
In B9 werden untereinander Namen eingetragen.
In B13 steht eine Formalie für das Formblatt drin. Zwischen dem letzten Namen (beliebig viel) und der Formalie soll eine freie Zeile sein. Das heißt wenn B12 belegt wird soll alles darunter eine Zeile nach unten wandern und das so weiter. Ich weiß das de folgende Code eine neue Zeile einfügen kann, aber mir gelingt das anpassen nicht.
Dim Zelle As Range
Set Zelle = ActiveCell
Zelle.Offset(1).EntireRow.Insert Shift:=xlDown
Problem 2:
Ich habe eine While Schleife in der geprüft werden soll ob eine Zelle ab B9 Inhalt hat. Wenn
kein Inhalt vorhanden ist soll er die While Schleife beenden. Meine Idee war es irgendwie mit
Cells(65536, 2).End(xlUp)
zu arbeiten, aber das klappt nicht für meinen Bereich.Ich bin für jede Hilfe sehr dankbar und hoffe (wie immer), dass ich es einigermaßen verständlich beschrieben hab! Falls nicht bessere ich gerne nach.
VG
Tim