Thema Datum  Von Nutzer Rating
Antwort
14.12.2017 15:50:41 housixxl
NotSolved
14.12.2017 16:02:57 Gast951
NotSolved
14.12.2017 17:29:30 Gast01234
NotSolved
14.12.2017 18:01:22 Gast43210
*****
Solved
14.12.2017 18:15:32 Gast01234
NotSolved
14.12.2017 18:41:44 Gast43210
NotSolved
15.12.2017 09:03:19 Gast88118
NotSolved
Blau Hilfe bei 2 Makros (Nullen Makro; Spaltenübertragungs Makro)
 16.12.2017 09:37:44 Gast43210
NotSolved

Ansicht des Beitrags:
Von:
Gast43210		 Datum:
16.12.2017 09:37:44		 Views:
540		 Rating:
     
Antwort:
  Ja
Thema:
Hilfe bei 2 Makros (Nullen Makro; Spaltenübertragungs Makro)		 
Option Explicit

Sub MultiSheets()
Const MultiSh As String = "Final Sheet 1,Final Sheet 2,Final Sheet 3"
Dim V
Dim arrSh() As String: arrSh = Split(MultiSh, Chr(44))

   For Each V In arrSh
      mNullen V
      mSpaltenübertragung V
   Next V
   
End Sub


Private Sub mNullen(ByVal shName As String)
Dim a As Range, c As Range
   With Sheets(shName)
      For Each a In .Range("E7:I212,K7:M212,O7:Q212").Areas
         For Each c In a.Cells
            If c.Value = "" Then c.Value = 0
         Next c
      Next a
   End With
End Sub


Private Sub mSpaltenübertragung(ByVal shName As String)
Dim c As Range
   With Sheets(shName)
      For Each c In .Range("A7:A212")
         If c.Value = 1 Then
            c.Offset(, 6).Value = _
            c.Offset(, 6).Value + (c.Offset(, 4).Value - c.Offset(, 6).Value - c.Offset(, 7).Value)
         End If
      Next c
   End With
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
14.12.2017 15:50:41 housixxl
NotSolved
14.12.2017 16:02:57 Gast951
NotSolved
14.12.2017 17:29:30 Gast01234
NotSolved
14.12.2017 18:01:22 Gast43210
*****
Solved
14.12.2017 18:15:32 Gast01234
NotSolved
14.12.2017 18:41:44 Gast43210
NotSolved
15.12.2017 09:03:19 Gast88118
NotSolved
Blau Hilfe bei 2 Makros (Nullen Makro; Spaltenübertragungs Makro)
 16.12.2017 09:37:44 Gast43210
NotSolved