Thema Datum  Von Nutzer Rating
Antwort
10.12.2020 15:20:56 Ludwig
NotSolved
Blau Zelleninformation aus anderem Blatt ausblenden/übernehmen
 11.12.2020 10:45:22 volti
NotSolved
14.12.2020 07:29:30 Gast92603
NotSolved
14.12.2020 07:38:17 Ludwig
NotSolved
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:
11.12.2020 10:45:22		 Views:
662		 Rating:
     
Antwort:
  Ja
Thema:
Zelleninformation aus anderem Blatt ausblenden/übernehmen

Hallo Ludwig,

schau mal, ob ich Dich richtig verstanden habe und das u.a. Makro nach Anpassung der gewünschten Parameter schon zu Deiner Zufriedenheit arbeitet...

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		  
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("Tabelle2")                    ' Quellblatt angeben
  
  With ThisWorkbook.Sheets("Tabelle1")                          ' Zielblatt angeben
     iZeileOut = .Cells(Rows.Count, "A").End(xlUp).Row + 1      ' Erste freie Zeile
    
     For iZeile = 1 To WShQ.Cells(Rows.Count, "A").End(xlUp).Row
        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
Blau Zelleninformation aus anderem Blatt ausblenden/übernehmen
 11.12.2020 10:45:22 volti
NotSolved
14.12.2020 07:29:30 Gast92603
NotSolved
14.12.2020 07:38:17 Ludwig
NotSolved
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