Herbers Excel-Forum - das Archiv

markierte Zellen

Bild

Betrifft: markierte Zellen
von: Martin

Geschrieben am: 05.01.2007 08:55:43
Hallo Ich habe ein kleines Problem
ich kopiere nach flogenem Script Daten,
aber am Schluss sind die Daten in den neuen Zeilen markiert... und sie sollten das nicht sein.
Sub Schaltfläche55_BeiKlick()
If Sheets("Produkte programierung").Range("M1") > 0.1 Then
Lrow = Sheets("Lieferschein zum Ausdruck").Range("A50").End(xlUp).Row + 1
If Lrow < 17 Or Lrow > 50 Then Exit Sub
Sheets("Produkte programierung").Range("M1:P1").Copy
Sheets("Lieferschein zum Ausdruck").Range("A" & Lrow).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
End Sub

Gruss Martin
Bild

Betrifft: AW: markierte Zellen
von: Ramses
Geschrieben am: 05.01.2007 09:56:46
Hallo
Dann wähle doch einfach eine andere Zelle aus ;-)
Am Ende
Range("A1").select
Gruss Rainer
Bild

Betrifft: AW: markierte Zellen
von: Martin
Geschrieben am: 05.01.2007 10:13:25
Ramses dein Humor gefällt mir :-)
wenn ich aber das mache sind die Zeilen immer noch markiert (vom Ziel der Kopie) und die Zelle A1 von der Quelle der Kopie ist aktiv
Bild

Betrifft: AW: markierte Zellen
von: WernerB.

Geschrieben am: 05.01.2007 10:16:02
Hallo Martin,
wie gefällt Dir das:
Sub Schaltfläche55_BeiKlick()
If Sheets("Produkte programierung").Range("M1") > 0.1 Then
Lrow = Sheets("Lieferschein zum Ausdruck").Range("A50").End(xlUp).Row + 1
If Lrow < 17 Or Lrow > 50 Then Exit Sub
Sheets("Produkte programierung").Range("M1:P1").Copy
Sheets("Lieferschein zum Ausdruck").Range("A" & Lrow).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("Lieferschein zum Ausdruck").Range("A1").Copy
Sheets("Lieferschein zum Ausdruck").Range("A1").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End If
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Bild

Betrifft: AW: markierte Zellen
von: Martin
Geschrieben am: 05.01.2007 10:29:42
Danke Dir du bist meine Rettung ;-)
 Bild
Excel-Beispiele zum Thema "markierte Zellen"
Abfrage der markierten Spalten Zeilen oberhalb der markierten Zellen einfügen
Markierten Bereich mit jeweiligem Mwst-Satz multiplizieren Markierten Bereich drucken
Adressen grau markierter Zellen als Hyperlink eintragen Makros in Abhängigkeit vom Zellennamen aufrufen
Zellen auf Kommentar überprüfen Spalten bedingt summieren und Zellen formatieren
Text aus Textbox in Zellen aufteilen Zellen vergleichen und markieren