Thema Datum  Von Nutzer Rating
Antwort
10.12.2020 15:20:56 Ludwig
NotSolved
11.12.2020 10:45:22 volti
NotSolved
14.12.2020 07:29:30 Gast92603
NotSolved
14.12.2020 07:38:17 Ludwig
NotSolved
Rot Zelleninformation aus anderem Blatt ausblenden/übernehmen
 14.12.2020 08:11:38 volti
NotSolved
15.12.2020 07:44:13 Ludwig
NotSolved
20.01.2021 10:49:49 Gast90211
NotSolved
15.12.2020 08:36:15 Ludwig
NotSolved
15.12.2020 09:33:07 volti
NotSolved
21.01.2021 08:14:15 Ludwig
NotSolved
21.01.2021 12:55:22 volti
NotSolved
21.01.2021 15:58:46 Ludwig
NotSolved
21.01.2021 16:14:51 volti
NotSolved
22.01.2021 13:20:26 Ludwig
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
14.12.2020 08:11:38		 Views:
1232		 Rating:
     
Antwort:
  Ja
Thema:
Zelleninformation aus anderem Blatt ausblenden/übernehmen

Hallo Ludwig,

schau mal ob es so passt....

Code:
 
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35		  
Option Explicit
Option Compare Text

Sub Datenuebertragung()
  Dim iZeile As Long, iZeileOut As Long
  Dim WShQ As Worksheet
  
  With Application
     .ScreenUpdating = False
     .EnableEvents = False
     .Calculation = xlCalculationManual
  End With

  Set WShQ = ThisWorkbook.Sheets("Tabelle1")             ' Quellblatt angeben
  
  With ThisWorkbook.Sheets("Tabelle2")                   ' Zielblatt angeben
     iZeileOut = 70                                      ' Beginn-Zeile
    
     For iZeile = 50 To 70
        If Not WShQ.Cells(iZeile, "B").Value Like "nein" Then
           .Cells(iZeileOut, "A").EntireRow.Value _
           = WShQ.Cells(iZeile, "B").EntireRow.Value
           iZeileOut = iZeileOut + 1
        End If
     Next iZeile

  End With
  
  With Application
     .ScreenUpdating = True
     .EnableEvents = True
     .Calculation = xlCalculationAutomatic
  End With
  
End Sub
 
_________
viele Grüße
Karl-Heinz

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
10.12.2020 15:20:56 Ludwig
NotSolved
11.12.2020 10:45:22 volti
NotSolved
14.12.2020 07:29:30 Gast92603
NotSolved
14.12.2020 07:38:17 Ludwig
NotSolved
Rot Zelleninformation aus anderem Blatt ausblenden/übernehmen
 14.12.2020 08:11:38 volti
NotSolved
15.12.2020 07:44:13 Ludwig
NotSolved
20.01.2021 10:49:49 Gast90211
NotSolved
15.12.2020 08:36:15 Ludwig
NotSolved
15.12.2020 09:33:07 volti
NotSolved
21.01.2021 08:14:15 Ludwig
NotSolved
21.01.2021 12:55:22 volti
NotSolved
21.01.2021 15:58:46 Ludwig
NotSolved
21.01.2021 16:14:51 volti
NotSolved
22.01.2021 13:20:26 Ludwig
NotSolved