Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1696to1700
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
Wenn Wert dann kopieren
18.06.2019 09:30:16
Anna
Hallo,
ich bräuchte dringend Hilf:
Ich möchte, dass wenn Zeile "C17" befüllt ist, sollen die Zeilen C17:C40 kopiert werden und in ein neues Tabellenblatt eingefügt werden. Und wenn Zeile "D17" befüllt ist, sollen die Zeilen "D17:D40 kopiert und wie oben, in ein neues Tabellenblatt eingefügt werden. Er soll also alle Spalten von C17 bis G17 überprüfen.
Ich wäre sehr dankbar.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachfrage..
18.06.2019 09:38:27
UweD
Wo sollen die im neuen Blatt eingefügt werden?
Immer unten angehangen? Dann per VBA
oder immer an der gleichen Stelle? dann reicht Formel
LG UweD
AW: Wenn Wert dann kopieren
18.06.2019 09:43:33
Hajo_Zi

Option Explicit
Sub Kopieren()
Dim RaZelle As Range
Dim InSpalte As Integer
InSpalte = 1
With ActiveSheet
Worksheets.Add
For Each RaZelle In .Range("C17:G17")
If RaZelle  "" Then
Range(RaZelle.Offset(1, 0), RaZelle.Offset(23, 0)).Copy Cells(1, InSpalte)
InSpalte = InSpalte + 1
End If
Next RaZelle
End With
End Sub

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: Dankeschön
18.06.2019 09:54:17
Anna
Vielen lieben Dank Hajo_Zi :D

341 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige