soll heissen: Zeile 7 ( Bereich A7:I7) immer in die nächste leere Zeile darunter kopieren.
ich finde zwar die leere Zeile, kann aber den Wert aus
Range("A7:I7") nicht einfügen ! Kommt immer nur "WAHR"
Warum - bitte helft mir.
Danke
soll heissen: Zeile 7 ( Bereich A7:I7) immer in die nächste leere Zeile darunter kopieren.
ich finde zwar die leere Zeile, kann aber den Wert aus
Range("A7:I7") nicht einfügen ! Kommt immer nur "WAHR"
Warum - bitte helft mir.
Danke
ich vermute mal, dass eine Zeile eingefügt werden soll. Wenn ja, wie folgt:
Wenn nein, die erste Codezeile weglassen.
hans
Private Sub CommandButton17_Click()
Dim ZlNr As Integer
Dim Zeile As Integer
Dim Wert As Variant ???
ZlNr = Range("A" & Rows.Count).End(xlUp).Row
Zeile = ZlNr + 1
Range("A7:I7").Select
Selection.Cut
'Wert = Range("A7:I7").Select
'Worksheets("Tabelle1").Cells(Zeile, 1) = Range("A7:I7").Select
'Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False
End Sub
PS. Auskommentierung aus Versuchszwecken .
Merke: Selektieren in der VBA-Programmierung ist Teufelszeugs.
Da Du mit XL97 arbeitest, denke dran, die TakeFocusOnClick-Eigenschaft der Schaltfläche auf False zu stellen.
Wie folgt:
hans
Habe ich mich den so falsch Ausgedrück ?! Sorry. Ich dachte das reicht um dann weiter zu kommen.
Thx.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen