Thema Datum  Von Nutzer Rating
Antwort
13.10.2011 08:35:38 Birnenbaum
NotSolved
13.10.2011 09:22:47 till
NotSolved
13.10.2011 10:58:53 Gast10689
NotSolved
13.10.2011 11:03:16 Birnenbaum
NotSolved
13.10.2011 12:01:48 Birnenbaum
NotSolved
13.10.2011 12:41:16 Dekor
NotSolved
13.10.2011 12:56:19 Birnenbaum
NotSolved
13.10.2011 14:06:21 Dekor
NotSolved
13.10.2011 15:44:14 Birnenbaum
NotSolved
Blau Wenn Wert größer 0 dann kopieren ohne Formeln
 13.10.2011 16:20:27 Dekor
NotSolved
13.10.2011 23:06:08 Till
Solved
14.10.2011 07:28:43 Birnenbaum
NotSolved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
13.10.2011 16:20:27		 Views:
1689		 Rating:
     
Antwort:
  Ja
Thema:
Wenn Wert größer 0 dann kopieren ohne Formeln

Hallo Birnenbaum,

mal unabhänging von Spalte 6

   For Each WS In ThisWorkbook.Worksheets
       With WS
           Select Case .Name
               Case "SAP" 'hier die Tabellen eintragen die nicht berücksichtigt werden
               Case Else
                   If Not IsEmpty(.UsedRange) Then
                       For Zeile = 120 To 130
                           If .Cells(Zeile, 5) > 0  Then
msgbox "Wert Zeile " & Zeile &  " = '" & .cells(Zeile,5) & "'"

'''Or .Cells(Zeile, 6) > 0 
                               .Rows(Zeile).Copy
                               WSz.Cells(n, 1).PasteSpecial (xlPasteValuesAndNumberFormats)
                               n = n + 1
                           End If
                   Next Zeile
                   End If
           End Select
       End With
   Next

Gruß Detlev

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
13.10.2011 08:35:38 Birnenbaum
NotSolved
13.10.2011 09:22:47 till
NotSolved
13.10.2011 10:58:53 Gast10689
NotSolved
13.10.2011 11:03:16 Birnenbaum
NotSolved
13.10.2011 12:01:48 Birnenbaum
NotSolved
13.10.2011 12:41:16 Dekor
NotSolved
13.10.2011 12:56:19 Birnenbaum
NotSolved
13.10.2011 14:06:21 Dekor
NotSolved
13.10.2011 15:44:14 Birnenbaum
NotSolved
Blau Wenn Wert größer 0 dann kopieren ohne Formeln
 13.10.2011 16:20:27 Dekor
NotSolved
13.10.2011 23:06:08 Till
Solved
14.10.2011 07:28:43 Birnenbaum
NotSolved