Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
10.12.2020 15:20:56 |
Ludwig |
|
|
|
11.12.2020 10:45:22 |
volti |
|
|
|
14.12.2020 07:29:30 |
Gast92603 |
|
|
|
14.12.2020 07:38:17 |
Ludwig |
|
|
|
14.12.2020 08:11:38 |
volti |
|
|
|
15.12.2020 07:44:13 |
Ludwig |
|
|
|
20.01.2021 10:49:49 |
Gast90211 |
|
|
|
15.12.2020 08:36:15 |
Ludwig |
|
|
|
15.12.2020 09:33:07 |
volti |
|
|
|
21.01.2021 08:14:15 |
Ludwig |
|
|
Zelleninformation aus anderem Blatt ausblenden/übernehmen |
21.01.2021 12:55:22 |
volti |
|
|
|
21.01.2021 15:58:46 |
Ludwig |
|
|
|
21.01.2021 16:14:51 |
volti |
|
|
|
22.01.2021 13:20:26 |
Ludwig |
|
|
Von:
volti |
Datum:
21.01.2021 12:55:22 |
Views:
811 |
Rating:
|
Antwort:
|
Thema:
Zelleninformation aus anderem Blatt ausblenden/übernehmen |
Hallo Ludwig,
meinst Du so? Test mal:
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 |
|
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").Resize(, 2).Value _
= WShQ.Cells(izeile, "A").Resize(, 2).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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
11.12.2020 10:45:22 |
volti |
|
|
|
14.12.2020 07:29:30 |
Gast92603 |
|
|
|
14.12.2020 07:38:17 |
Ludwig |
|
|
|
14.12.2020 08:11:38 |
volti |
|
|
|
15.12.2020 07:44:13 |
Ludwig |
|
|
|
20.01.2021 10:49:49 |
Gast90211 |
|
|
|
15.12.2020 08:36:15 |
Ludwig |
|
|
|
15.12.2020 09:33:07 |
volti |
|
|
|
21.01.2021 08:14:15 |
Ludwig |
|
|
Zelleninformation aus anderem Blatt ausblenden/übernehmen |
21.01.2021 12:55:22 |
volti |
|
|
|
21.01.2021 15:58:46 |
Ludwig |
|
|
|
21.01.2021 16:14:51 |
volti |
|
|
|
22.01.2021 13:20:26 |
Ludwig |
|
|