Thema Datum  Von Nutzer Rating
Antwort
20.02.2018 13:11:32 Monkey
NotSolved
20.02.2018 13:12:40 Gast73837
NotSolved
20.02.2018 13:29:08 RPP63
NotSolved
20.02.2018 13:58:23 Gast36654
NotSolved
Rot Daten kopieren und Formatierung ändern
 20.02.2018 16:57:06 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
20.02.2018 16:57:06		 Views:
541		 Rating:
     
Antwort:
  Ja
Thema:
Daten kopieren und Formatierung ändern		 
Option Explicit

Sub DatenInSammelDatei()
Dim wbSammel As Workbook, strSammelPfad As String, strSammelDatei As String
Dim strBereich As String, strS As String
Dim ShT As Worksheet, x As Long, c As Range
'
strSammelDatei = "Ziel.xlsx"
strSammelPfad = "\\G-PC\F\"
strBereich = "D1:AI50"
strS = "K"

   Application.ScreenUpdating = False
   On Error Resume Next
   Set wbSammel = Workbooks(strSammelDatei)
   If Err.Number Then _
      Set wbSammel = Workbooks.Open(strSammelPfad & strSammelDatei)
   On Error GoTo 0

   ThisWorkbook.Activate
   For x = 1 To 12
      Set ShT = wbSammel.Sheets(MonthName(x))
      Sheets(MonthName(x)).Range(strBereich).Copy ShT.Range(strBereich)
      'kein Plan, daher Zelle für Zelle
      For Each c In ShT.Range(strBereich).Cells
         If InStr(c.Value, strS) Then
            c.ClearContents
            c.Interior.ColorIndex = 5
         End If
      Next c
   Next x
    
   wbSammel.Close savechanges:=True

Set wbSammel = Nothing
Set ShT = Nothing
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
20.02.2018 13:11:32 Monkey
NotSolved
20.02.2018 13:12:40 Gast73837
NotSolved
20.02.2018 13:29:08 RPP63
NotSolved
20.02.2018 13:58:23 Gast36654
NotSolved
Rot Daten kopieren und Formatierung ändern
 20.02.2018 16:57:06 Gast70117
NotSolved