Thema Datum  Von Nutzer Rating
Antwort
27.03.2015 19:57:08 querdenker
*****
Solved
Blau schleifen abfrage
 28.03.2015 10:31:52 Gast68120
*****
Solved
28.03.2015 10:32:58 Gast82167
NotSolved
28.03.2015 20:27:27 querdenker
NotSolved
29.03.2015 09:40:23 Gast81655
NotSolved
28.03.2015 10:37:14 MarkusK
*****
Solved

Ansicht des Beitrags:
Von:
Gast68120		 Datum:
28.03.2015 10:31:52		 Views:
816		 Rating:
     
Antwort:
 Nein
Thema:
schleifen abfrage

Schätze mal so:

Option Explicit

Sub Bsp()
  
  Dim merker As Integer
  Dim i As Long
  
  merker = 0
  
  Application.ScreenUpdating = False
  
  For i = 24 To 20 Step -1
    
    If (Cells(i, 13) > 0) Then
      
      Cells(i, 13).Copy
      Worksheets("BP Übersicht").Range("B8").PasteSpecial Paste:=xlPasteValues
      Worksheets("BP Übersicht").Range("B5").PasteSpecial Paste:=xlPasteValues
      
      Cells(i, 9).Copy
      Worksheets("BP Übersicht").Range("B9").PasteSpecial Paste:=xlPasteValues
      
      merker = merker + 1
    End If
    
  Next
  
  If merker = 0 Then
    
    Worksheets("BP Übersicht").Activate
    Worksheets("BP Übersicht").Range("B5").Value = "Kein Kessel angeschlossen"
    
  ElseIf merker = 1 Then  'wozu das
    merker = merker - 1   'noch behandeln?
  End If
  
  Worksheets("BP1 Standzeit-Abfüllzeit").Activate
  
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
  
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
27.03.2015 19:57:08 querdenker
*****
Solved
Blau schleifen abfrage
 28.03.2015 10:31:52 Gast68120
*****
Solved
28.03.2015 10:32:58 Gast82167
NotSolved
28.03.2015 20:27:27 querdenker
NotSolved
29.03.2015 09:40:23 Gast81655
NotSolved
28.03.2015 10:37:14 MarkusK
*****
Solved