Hallo,
ich suche nach wie vor noch eine Lösung um mir das Drucken von Mitarbeiterergebnissen zu vereinfachen.
Folgendes muss gemacht werden:
Aus Tabellenblatt 2 soll Spalte B Zeile für Zeile geprüft werden.
Ist die Zelle nicht leer, soll der Wert in Zelle B2 aus Tabelle 1 eingefügt werden, anschließend soll Tabelle 1 gedruckt werden.
Danach soll die Spalte B weiter geprüft und mit dem nächsten gefundenen Wert genauso verfahren werden, solange bis keine Werte mehr in der Spalte sind.
Bis lang habe ich nur diesen Schnipsel gefunden, aber das Kopieren dieses einzelnen Wertes, den ich ja nicht genau definieren kann, bereitet mir Probleme:
Sub SpalteDurchlaufen_und_Drucken()
Dim Zelle As Range
For Each Zelle In Range("Tabelle2!B1:B" & Cells(Rows.Count, "B").End(xlUp).Row)
If Zelle "" Then
Weiß jemand Rat?
Vielen Dank schon einmal!
Feli