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:
58
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 genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

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