hiho



with Sheets("Tabelle1")

.Range("C1:C10").value= .Range("A1:A10").value

end with



was geht dabei nicht ?



wenn Formeln mit Werten in A1:A10 stehen werden diese als Werte in C1:C10 übertragen



copy nehme ich fast nie ist zu langsam!





'Private Sub Workbook_Open() 'Das bei Workbook_open rein

'Call Starter

'End Sub



Option Explicit



Private Makro_Time As Date

Private Const Deine_Proc = "chris_ka"

Private Const Zeit = 5



Sub Starter()

Makro_Time = Format(Now + TimeSerial(0, 0, Zeit), "hh:mm:ss")

Application.OnTime EarliestTime:=Makro_Time, _

Procedure:=Deine_Proc

End Sub



Sub chris_ka()

Dim Zelle As Range

For Each Zelle In Sheets("Tabelle1").Range("Q26:Q36")

If Zelle.Value = "On" Then

With Sheets("Tabelle1")

.Range("C1:C10").Value = .Range("A1:A10").Value

End With

End If

Next

Starter



End Sub

'damit kann das Makro angehalten werden

Sub Stop_it()

On Error Resume Next

Application.OnTime EarliestTime:=Makro_Time, _

Procedure:=Deine_Proc, Schedule:=False

End Sub





und hier kopierbar

'Private Sub Workbook_Open() 'Das bei Workbook_open rein

'Call Starter

'End Sub



Option Explicit



Private Makro_Time As Date

Private Const Deine_Proc = "chris_ka"

Private Const Zeit = 5



Sub Starter()

Makro_Time = Format(Now + TimeSerial(0, 0, Zeit), "hh:mm:ss")

Application.OnTime EarliestTime:=Makro_Time, _

Procedure:=Deine_Proc

End Sub



Sub chris_ka()

Dim Zelle As Range

For Each Zelle In Sheets("Tabelle1").Range("Q26:Q36")

If Zelle.Value = "On" Then

With Sheets("Tabelle1")

.Range("C1:C10").Value = .Range("A1:A10").Value

End With

End If

Next

Starter



End Sub

'damit kann das Makro angehalten werden

Sub Stop_it()

On Error Resume Next

Application.OnTime EarliestTime:=Makro_Time, _

Procedure:=Deine_Proc, Schedule:=False

End Sub




Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von chris-ka , 03.05.2006, 17:57 Uhr , 20 mal gelesen