Thema Datum  Von Nutzer Rating
Antwort
Rot IF Bedinung ergänzen
 11.09.2020 16:56:44 Lukas
NotSolved
11.09.2020 17:28:14 Gast55499
NotSolved
14.09.2020 19:21:39 Lukas
NotSolved
14.09.2020 23:04:26 ralf_b
Solved
18.09.2020 17:45:04 Lukas
NotSolved

Ansicht des Beitrags:
Von:
Lukas		 Datum:
11.09.2020 16:56:44		 Views:
1074		 Rating:
     
Antwort:
  Ja
Thema:
IF Bedinung ergänzen

Hallo,

 

habe letztens Dank der Hilfe von Werner einen Code erstellt der tut was er soll. Allerdings ist mir nun aufgefallen das noch eine If Bedinung fehlt, sofern man das am besten mit einer If-Bedinung realisiert?!

Das einfügen der Informationen wird auf allen Blättern durchgeführt, was so auch richtig ist. Allerdings möchte ich das Inhaltsverzechnis davon ausschließen, nur ist mir das bis jetzt nicht gelungen.

Ich hoffe das mir jemand weiterhelfen kann.

Hier der Code:

Sub Kopieren()
Dim wbQuelle As Workbook, i As Long
  
Set wbQuelle = Workbooks("Testdatei mit Geräten.xlsm")
 
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
 
With ThisWorkbook
    For i = 1 To .Sheets.Count
     .Sheets(i).Range("C9:E12").Value = wbQuelle.Sheets(i).Range("C9:E12").Value
        .Sheets(i).Range("H9:J12").Value = wbQuelle.Sheets(i).Range("H9:J12").Value
        .Sheets(i).Range("M9:N10").Value = wbQuelle.Sheets(i).Range("M9:N10").Value
        .Sheets(i).Range("L12").Value = wbQuelle.Sheets(i).Range("L12").Value
        .Sheets(i).Range("N11:N12").Value = wbQuelle.Sheets(i).Range("N11:N12").Value
   Next i
End With
  
Set wbQuelle = Nothing
  
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub

Mit freundlichem Gruß

Lukas

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
Rot IF Bedinung ergänzen
 11.09.2020 16:56:44 Lukas
NotSolved
11.09.2020 17:28:14 Gast55499
NotSolved
14.09.2020 19:21:39 Lukas
NotSolved
14.09.2020 23:04:26 ralf_b
Solved
18.09.2020 17:45:04 Lukas
NotSolved