im Range spalte und zeile als Variable

Sub wenn_wert_vorhanden_dann_kopieren() ' wenn in spalte g ein wert vorhanden ist wird er nach spalte b kopiert ausschneiden einfügen Dim Myrow For Myrow = 10 To 20000 'Ende(hier Zeile20) anpassen oder Einlesen! If Range("G" & Myrow).Value "" Then Range("G" & Myrow).Cut Destination:=Range("B" & Myrow) Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub wenn_wert_vorhanden_dann_kopieren() ' wenn in spalte g ein wert vorhanden ist wird er nach spalte b kopiert ausschneiden einfügen Dim quellSpalte As Variant Dim zielSpalte As Variant Application.ScreenUpdating = False Set quellSpalte = Rows(10).Find("Datum h", LookAt:=xlWhole) Set zielSpalte = Rows(10).Find("Datum Z", LookAt:=xlWhole) 'Cells(Zeilennummer, Spaltennummer) Dim Myrow For Myrow = 10 To 20000 'Ende(hier Zeile20) anpassen oder Einlesen! If Cells(Myrow, quellSpalte).Value "" Then Cells(Myrow, quellSpalte).Cut Destination:= _ Cells(Myrow, quellSpalte) Next End Sub

Sub wenn_wert_vorhanden_dann_versetzen() ' wenn in quellspalte ein wert vorhanden ist, wird ausgeschnitten u. in zielspalte eingefügt Dim Myrow As Long, quellspalte As Long, zielspalte As Long quellspalte = Rows(10).Find("Datum h", LookAt:=xlWhole).Column zielspalte = Rows(10).Find("Datum Z", LookAt:=xlWhole).Column For Myrow = 10 To 20000 'Ende(hier Zeile20) anpassen oder Einlesen! If Cells(Myrow, quellspalte).Value "" Then Cells(Myrow, quellspalte).Cut Destination:= _ Cells(Myrow, zielspalte) Next Application.CutCopyMode = False End Sub

Hallo Gerd,
wenn das ginge wäre dies sicherer für den Fall das die Überschriften doch mal in einer anderen Zeile als 10 landen und ich müsste wirklich nur den Bereich abklappern der mit Daten gefüllt ist. So muss ich ein riesen Bereich wählen um nicht Gefahr zu laufen das er nicht ausreicht. Dann wird dieses Makro sehr langsam. Ursprünglich wollte ich die daten mit dem Makro unten markieren ausschneiden und dann in die Spalte Datum z einfügen. dabei dürfen nur dann die zellen überschrieben werden wenn in der Quellspalte auch daten sind. Aber leider geht es wahrscheinlich nicht mit nichtzusammenhängenden datenbereichen ohne schleife. Den kompletten bereich kann ich nicht ausschneiden einfügen denn dann werden die Daten in der Zielspalte teilweise mit leer überschrieben. In diesen Fall müssen aber die Daten in der Zielspalte stehen bleiben.
hab recht vielen dank für dein interesse an mein problem.
liebe grüsse thomas

Sub gefüllte_markieren_()
With ActiveSheet.Columns(1)
.ColumnDifferences(.Cells(Rows.Count, 1)).Select  'Cut  ' die eins UND ROWS muss mit varible  _
ersetzt werden.
End With
End 

Sub

Beliebteste Forumthreads (12 Monate)

im Range spalte und zeile als Variable

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

117 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

im Range spalte und zeile als Variable

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

117 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread