Prüfen und kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Vielleicht hilft dir folgender Code weiter.

Option Explicit
Sub Überprüfung()
Dim begZeile As Long, endZeile As Long, n As Long
Dim begKopie As Long
Dim tmp As Date
Dim kopBereich As Range
'Beginnzeile und Endzeile der Spalte D festlegen
    begZeile = 5    'anpassen
    endZeile = 12   'anpassen
'bei welcher Zeile soll Kopien beginnen
    begKopie = 2

' Uhrzeit überprüfen
    For n = begZeile To endZeile
    tmp = Cells(n, 4).Value
        If tmp > "00:00:00" And tmp < "00:01:00" Then
' Überprüfen, ob in Spalte A  "TRS000!l"  steht
            If Cells(n, 1).Text = "TRS000!l" Then
                Set kopBereich = Application.Union(Range(Cells(n, 7), Cells(n, 8)), _
                                                   Range(Cells(n, 11), Cells(n, 16)))
                kopBereich.Copy Destination:=Worksheets("Tabelle2").Range("A" & begKopie)
                begKopie = begKopie + 1
                MsgBox "Werte aus Zeile  " & n & "  Kopiert"
            End If
        End If
    Else
        Exit Sub
    Next n

End Sub

Bei weiteren Fragen einfach melden.
mfg, GraFri

Hallo
Button aus den 'Steuerelement-Toolbox':
Vorgangsweise:
1.) Im Tabellenblatt oben die rechte Maustaste drücken und 'Steuerelement-Toolbox' auswählen.
2.) Das Control 'Befehlsschaltfläche' auswählen und im Tabellenblatt an gewünschter Stelle plazieren. Hat wahrscheinlich den Titel CommandButton1.
3.) In der Symbolleiste 'Steuerelement-Toolbox' Eigenschaften anklicken. Dort unter Caption die Beschriftung des Buttons ändern. Dort können verschiedene Eigenschaften des Button's geändert werden. Anschließend Eigenschaften schließen.
4.) Das Button doppelklicken, es müßte sich ein Fenster öffnen und '


Private Sub CommandButton1_Click()' sowie 'End Sub

' bereits vorgegeben sein. Zwischen diesen beiden den Code ohne Anfangs- und Endzeile einfügen.
5.) Zurück zum Tabellenblatt und in der Symbolleiste 'Steuerelement-Toolbox'den Entwurfsmodus mittels klick auf Entwurfsmodus (Button mit Dreieck) beenden. Symbolleiste 'Steuerelement-Toolbox' kann jetzt geschlossen werden.
Makro sollte jetzt funktioniern.
mfg, GraFri

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Prüfen und kopieren

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread