title image


Smiley Re: VBA Schnelle Datenübernahme ?
Hallo



wird zwar ein bisschen schneller aber



Ich denke dass man sowas viel eleganter machen könnte



mit do while oder so ähnlich



Mir fehlt dafür leider die Erfahrung





Hab hier mal den aktuellen Code reinkopiert





Sub FORMELN_EINFÜGEN_PICKLISTE()



'Sicherheitsabfrage

Dim m As Integer

m = MsgBox("Sind die Lagerbestandsdaten übertragen ?", _

4 + vbQuestion, "Sicherheitsabfrage")

If m = 7 Then Exit Sub



'Automatische Berechnung ausschalten

Application.Calculation = xlCalculationManual



'Bildschirmaktualisierung ausschalten

Application.ScreenUpdating = False



'Lagerbestand der aktuellen Pickliste

Range("G6").Select

ActiveCell.FormulaR1C1 = _

"=LOOKUP(2,1/('LB KOMPLETT'!R6C1:R10000C1&'LB KOMPLETT'!R6C2:R10000C2='Pickliste 754'!RC5&'Pickliste 754'!RC1),'LB KOMPLETT'!R6C8:R10000C8)"





Dim ende As Integer



Range("G6").Select



'Formel bis zur letzten Zelle inkl. Leerzellen in Abhängikeit von Spalte B kopieren

Selection.Copy



'Kennzeichnung Ende Spalte A ohne Leerzellen

ende = [A6].End(xlDown).Row

Range("G6:G" & ende).Select

'Inhalte einfügen-> Formel

Selection.PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Application.CutCopyMode = False

'Automatische Berechnung einschalten

Application.Calculation = xlCalculationAutomatic



'Bildschirmaktualisierung einschalten

Application.ScreenUpdating = True



'Formel durch Werte ersetzen

Selection.Copy

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

ActiveSheet.Paste

Application.CutCopyMode = False



Range("B4").Select





End Sub



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: