Thema Datum  Von Nutzer Rating
Antwort
31.05.2014 20:47:14 Jan
NotSolved
Blau Werte Kopieren bei Neuberechnung
 31.05.2014 22:09:35 Gast10458
Solved
31.05.2014 22:22:53 Jan
NotSolved

Ansicht des Beitrags:
Von:
Gast10458		 Datum:
31.05.2014 22:09:35		 Views:
728		 Rating:
     
Antwort:
 Nein
Thema:
Werte Kopieren bei Neuberechnung		 
Option Explicit

Sub Test()
Dim i As Long                               'Schleifenzähler in Basis
Dim c As Range                              'Treffer im Index Untersuchung

  Sheets("Basis").Range("B2").Value = 0     'zurücksetzen
  
  Application.ScreenUpdating = False        'keine Bildschirmaktualisierung
  
  For i = 1 To 500
    Sheets("Basis").Range("B2") = _
    Sheets("Basis").Range("B2") + 1         'Index Basis
    Sheets("Basis").Calculate               'neue Werte dazu

    With Sheets("Untersuchung")             'Index vorhanden, keine Fehlerprüfung !
      'Zelle suchen
      Set c = .Columns("A").Find(Sheets("Basis").Range("B2").Value)
      'Werte neben Treffer schreiben
      c.Offset(0, 1).Value = Sheets("Basis").Range("B5").Value
      c.Offset(0, 2).Value = Sheets("Basis").Range("C5").Value
    End With
    
    Next i
    
    Application.ScreenUpdating = True       'Bildschirmaktualisierung
    
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
31.05.2014 20:47:14 Jan
NotSolved
Blau Werte Kopieren bei Neuberechnung
 31.05.2014 22:09:35 Gast10458
Solved
31.05.2014 22:22:53 Jan
NotSolved