Zeile mit Kommentar kopieren
Gisela
ich habe vor einiger Zeit aus dem Forum folgendes Makro, das so super funtioniert
Option Explicit
Dim i As Integer
Dim WsQuelle As Worksheet
Dim WsQuelleLastR As Integer
Dim WsQuelleLastC As Integer
Dim Ws1 As Worksheet
Dim Ws1Last As Integer
Dim Wert As Integer
Sub DatensuchMrz()
Sheets("gesamt").Select
Range("A11:BT540").ClearContents
Set WsQuelle = Worksheets("Mrz")
WsQuelleLastR = WsQuelle.Cells(Rows.Count, 6).End(xlUp).Row
WsQuelleLastC = WsQuelle.UsedRange.Columns.Count
Set Ws1 = Worksheets("gesamt")
Ws1Last = Ws1.Cells(Rows.Count, 6).End(xlUp).Row + 1
Wert = WsQuelle.Range("A11") 'Variable Wert dem Zellinhalt zugewiesen
For i = 11 To WsQuelleLastR
Select Case (WsQuelle.Cells(i, 6))
Case Is > "" 'Wert in Spalte H >>DIESER WERT SOLLTE AUS EINER ZELLE KOMMENNun beinhalten einige Zeilen Kommentare. Diese werden nicht mit übernommen.
Kann mir bitte jemand helfen, das obige Makro so zu vervollständigen, dass auch die Kommentare mit übernommen werden.
Vielen Dank und liebe Grüße
Gisela
Anzeige