Fertiges Code Monstrum zur Ansicht ,Lachen erlaubt
13.03.2005 15:28:54
Bryan
mit dem Gerät hier lese ich aus einem anderen Programm Daten in Echtzeit ein um sie weiter zu verarbeiten. damit sie sich nicht aktualisieren lösche ich sofort die Formeln aus den zellen. Funktioniert auch. Ich wollte blos wissen ob sowas auch einfacher geht?
Sub Werte_Ein() ' hier lasse ich die Formeln in die Zellen
' schreiben um meine benötigten Werte einzulesen
' anschliessend lasse ich die Formeln sofort wieder löschen um ein aktualisieren zu verhindern
Ein_L21800W1X 'R410 STAND L21800 1ENDVOR einlesen
LöL21800W1X 'R410 STAND L21800 1ENDVOR Formel löschen,Wert beibehalten
Ein_L21800 'R410 STAND L21800 1ABLPROD einlesen
LöL21800 'R410 STAND L21800 1ABLPROD Formel löschen,Wert beibehalten
Ein_ANA21812Y_Z 'R410 AS-Menge nach dem Aufheizen einlesen
LöANA21812Y_Z 'R410 AS-Menge nach dem Aufheizen Formel löschen,Wert beibehalten
Ein_ANA21808Y_Z 'R410 Alk-Menge vor dem Aufheizen einlesen
LöANA21808Y_Z 'R410 Alk-Menge vor dem Aufheizen Formel löschen,Wert beibehalten
Ein_ANA21810Y_Z 'R410 CH-Start einlesen
LöANA21810Y_Z 'R410 CH-Start Formel löschen,Wert beibehalten
Ein_L21900W1X 'R420 STAND L21900 1ENDVOR einlesen
LöL21900W1X 'R420 STAND L21900 1ENDVOR Formel löschen,Wert beibehalten
Ein_L21900 'R420 STAND L21900 1ABLPROD einlesen
LöL21900 'R420 STAND L21900 1ABLPROD Formel löschen,Wert beibehalten
Ein_ANA21912Y_Z 'R420 AS-Menge nach dem Aufheizen einlesen
LöANA21912Y_Z 'R420 AS-Menge nach dem Aufheizen Formel löschen,Wert beibehalten
Ein_ANA21908Y_Z 'R420 Alk-Menge vor dem Aufheizen einlesen
LöANA21908Y_Z 'R420 Alk-Menge vor dem Aufheizen Formel löschen,Wert beibehalten
Ein_ANA21910Y_Z 'R420 CH-Start einlesen
LöANA21910Y_Z 'R420 CH-Start Formel löschen,Wert beibehalten
Dummy
Lö_Dummy
End Sub
Sub Ein_L21800W1X() 'R410 STAND L21800 1ENDVOR einlesen
[B4].Select
ActiveCell.FormulaR1C1 = _
"=ATGetCurrVal(""L21800W1.X"",""IP21-G402"","""",1040,0,0)"
Range("B4").Select
End Sub
Sub LöL21800W1X() 'R410 STAND L21800 1ENDVOR Formel löschen,Wert beibehalten
Range("B4").Copy '--> zelle die geändert werden soll
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Sub Ein_L21800() 'R410 STAND L21800 1ABLPROD einlesen
[B5].FormulaR1C1 = _
"=ATGetCurrVal(""L21800"",""IP21-G402"","""",1040,0,0)"
Range("B5").Select
End Sub
Sub LöL21800() 'R410 STAND L21800 1ABLPROD Formel löschen,Wert beibehalten
Range("B5").Copy '--> zelle die geändert werden soll
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Sub Ein_ANA21812Y_Z() 'R410 AS-Menge nach dem Aufheizen einlesen
[B9].Select
ActiveCell.FormulaR1C1 = _
"=ATGetCurrVal(""ANA21812.Y_Z"", ""IP21-G402"", """", 1040, 0, 0)"
Range("B9").Select
End Sub
Sub LöANA21812Y_Z() 'R410 AS-Menge nach dem Aufheizen Formel löschen,Wert beibehalten
Range("B9").Copy '--> zelle die geändert werden soll
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Sub Ein_ANA21808Y_Z() 'R410 Alk-Menge vor dem Aufheizen einlesen
[B11].Select
ActiveCell.FormulaR1C1 = _
"=ATGetCurrVal(""ANA21808.Y_Z"", ""IP21-G402"", """", 1040, 0, 0)"
Range("B11").Select
End Sub
Sub LöANA21808Y_Z() 'R410 Alk-Menge vor dem Aufheizen Formel löschen,Wert beibehalten
Range("B11").Copy '--> zelle die geändert werden soll
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Sub Ein_ANA21810Y_Z() 'R410 CH-Start einlesen
[B13].Select
ActiveCell.FormulaR1C1 = _
"=ATGetCurrVal(""ANA21810.Y_Z"", ""IP21-G402"", """", 1040, 0, 0)"
Range("B13").Select
End Sub
Sub LöANA21810Y_Z() 'R410 CH-Start Formel löschen,Wert beibehalten
Range("B13").Copy '--> zelle die geändert werden soll
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
'**********************************************'
'Hier beginnt die Prozedur für den R420
Sub Ein_L21900W1X() 'R420 STAND L21900 1ENDVOR einlesen
[G4].Select
ActiveCell.FormulaR1C1 = _
"=ATGetCurrVal(""L21900W1.X"",""IP21-G402"","""",1040,0,0)"
Range("G4").Select
End Sub
Sub LöL21900W1X() 'R420 STAND L21900 1ENDVOR Formel löschen,Wert beibehalten
Range("G4").Copy '--> zelle die geändert werden soll
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Sub Ein_L21900() 'R420 STAND L21900 1ABLPROD einlesen
[G5].FormulaR1C1 = _
"=ATGetCurrVal(""L21900"",""IP21-G402"","""",1040,0,0)"
Range("G5").Select
End Sub
Sub LöL21900() 'R420 STAND L21900 1ABLPROD Formel löschen,Wert beibehalten
Range("G5").Copy '--> zelle die geändert werden soll
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Sub Ein_ANA21912Y_Z() 'R420 AS-Menge nach dem Aufheizen einlesen
[G9].Select
ActiveCell.FormulaR1C1 = _
"=ATGetCurrVal(""ANA21912.Y_Z"", ""IP21-G402"", """", 1040, 0, 0)"
Range("G9").Select
End Sub
Sub LöANA21912Y_Z() 'R420 AS-Menge nach dem Aufheizen Formel löschen,Wert beibehalten
Range("G9").Copy '--> zelle die geändert werden soll
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End
Sub 'R420 AS-Menge nach dem Aufheizen Formel löschen,Wert beibehalten
Sub Ein_ANA21908Y_Z() 'R420 Alk-Menge vor dem Aufheizen einlesen
[G11].Select
ActiveCell.FormulaR1C1 = _
"=ATGetCurrVal(""ANA21908.Y_Z"", ""IP21-G402"", """", 1040, 0, 0)"
Range("G11").Select
End Sub
Sub LöANA21908Y_Z() 'R420 Alk-Menge vor dem Aufheizen Formel löschen,Wert beibehalten
Range("G11").Copy '--> zelle die geändert werden soll
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Sub Ein_ANA21910Y_Z() 'R420 CH-Start einlesen
[G13].Select
ActiveCell.FormulaR1C1 = _
"=ATGetCurrVal(""ANA21910.Y_Z"", ""IP21-G402"", """", 1040, 0, 0)"
Range("G13").Select
End Sub
Sub LöANA21910Y_Z() 'R420 CH-Start Formel löschen,Wert beibehalten
Range("G13").Copy '--> zelle die geändert werden soll
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Sub Dummy() 'damit G13 nicht mehr Markiert ist, blinkt oder wie auch immer
[A1] = "Dummy" 'die Spalte ist nämlich ausgeblendet
Range("A1").Select
End Sub
Sub Lö_Dummy()
Range("A1").Copy '--> zelle die geändert werden soll
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Danke und Gruss Bryan
Ps. kann mir vorstellen das so manch einer jetzt den Kopf schüttelt