Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren bei ausgeblendeten Spalten

Kopieren bei ausgeblendeten Spalten
16.03.2008 17:07:00
Günter
Hallo Zusammen,
ich habe mal wieder ein Problem.
Wie kann ich eine Zeile kopieren, wenn in der Tabelle Spalten ausgeblendet sind.
Mit
With Rows(zz)
.Copy
.Insert Shift:=xlDown
end with
wird nur eine Leerzeile eingefügt.
Danke im voraus.
Günter

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren bei ausgeblendeten Spalten
16.03.2008 17:34:00
Matthias
Hallo
probier mal, bei mir klappt es so.
Beispiel für Zeile2 (Spalte C war ausgeblendet.)
Trotzdem wurde der Wert aus C2 kopiert.
Rows("2:2").Copy
Sheets("Tabelle2").Rows("3:3").Insert Shift:=xlDown
Application.CutCopyMode = False
oder so (auch getestet)

Sub Makro2()
With Rows("2:2")
.Copy
.Insert Shift:=xlDown
End With
End Sub


Gruß Matthias

AW: Kopieren bei ausgeblendeten Spalten
16.03.2008 17:47:00
Günter
Hallo Matthias,
Dein Vorschlag klappt nur wenn auch alle Zeilen sichtbar sind.
In meinem Fall sind auch noch Zeilen ausgeblendet.
Hast Du eine Idee?
Danke Günter

Anzeige
AW: Kopieren bei ausgeblendeten Spalten
16.03.2008 18:15:00
Renee
Hallo Günter,
Das ist doch Quatsch.
Natürlich wird die Zeile kopiert. Sie erhält aber die gleichen Eigenschaften wie die Kopierte, d.h. sie ist eben auch nicht sichtbar. Wenn du die die kopierte sichtbar machen willst, so:

zz = Val(zx)
With Rows(zz)
.Copy
.Insert Shift:=xlDown
Rows(zz + 1).Hidden = False
End With


GreetZ Renée

AW: Kopieren bei ausgeblendeten Spalten
16.03.2008 18:30:51
Günter
Hallo Reneé,
sorry, dann muss ich etwas falsch machen!
Folgende Situation:
- einige Spalten sind ausgeblendet
- Zeilen sind mit einem Filter ausgeblendet
- eine sichtbare Zeile soll dupliziert werden und ist markiert
Makro

Sub test()
zz = Selection.Row
With Rows(zz)
.Copy
.Insert Shift:=xlDown
Rows(zz + 1).Hidden = False
End With
End Sub


Fügt leere Zeile ein!
Was mache ich falsch?
Danke im voraus!
Günter

Anzeige
AW: Kopieren bei ausgeblendeten Spalten
16.03.2008 18:36:00
Erich
Hallo Günter,
genau dieses Verhalten - Einfügen einer leeren Zeile - zeigt sich bei mir auch.
(@Renée: Das ist KEIN Quatsch.)
So werden alle Zellen kopiert (ist aber leider ein Schleifen-Umweg...): 

Sub Dupl_gefilterte2()
Dim zz As Long, ss As Long
Application.ScreenUpdating = False
For zz = Selection.Row + Selection.Rows.Count - 1 To Selection.Row Step -1
With Rows(zz)
If Not .Hidden Then
.Insert Shift:=xlDown
For ss = 1 To Cells(zz + 1, Columns.Count).End(xlToLeft).Column
Cells(zz + 1, ss).Copy Cells(zz, ss)
Next ss
End If
End With
Next zz
Application.ScreenUpdating = True
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Kopieren bei ausgeblendeten Spalten
16.03.2008 18:48:00
Renee
Hi zusammen,
Sorry hab das mit Spalten überlesen.
GreetZ Renée

Das ist es! Danke!!!!!
16.03.2008 19:06:37
Günter
Hallo Erich,
das ist es!!!!!!!!!!!!
Danke
Günter

AW: Kopieren bei ausgeblendeten Spalten
16.03.2008 19:01:37
Daniel
Hi
also bei mir tritt der Fehler auch auf.
Vermutlich hat Excel ein Problem mit der Kombination aus ausgeblendeten Zeilen und Spalten.
ich könnte dir folgenden Workaround anbieten:

Sub test()
Dim zz As Long
Dim sp As Long, i As Long
zz = Selection.Row
With Rows(zz)
.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
sp = ActiveSheet.UsedRange.Column
For i = sp To sp - 1 + ActiveSheet.UsedRange.Columns.Count
Cells(zz, i).FormulaR1C1 = Cells(zz + 1, i).FormulaR1C1
Next
End With
End Sub


Gruß, Daniel

Anzeige
Klappt auch! Danke!
16.03.2008 19:09:00
Günter
Hallo Daniel,
auch Dir danke!
Gru0
Günter

160 Forumthreads zu ähnlichen Themen

Gruppierung mit ausgeblendeten Spalten
Leander

Hallo Zusammen!
Ist möchte eine Spalte, beispielsweise Spalte "E" ausblenden, die jedoch in einem Gruppierungsbereich, Spalten "C:G", liegt.
So weit so gut, schließe ich diese Gruppe und öffne diese wieder, ist auch die vorher ausgeblendete Spalte wieder sichtbar.

Kann ich das...
13.11.2008 06:59:45
Thread-ID: 1024010
3 Beiträge
Anzeige
Hyperlinks von ausgeblendeten Tabellenblättern
ausgeblendeten

Hallo zusammen,
ich habe ein Excel Dokument, mit mehreren ausgeblendten Tabellenblättern. [worksheets("a").visible = false]
Auf einem (eingeblendeten) Tabellenblatt listet ein Makro alle vorhandenen Tabellenblätter auf und wandelt diese Liste in Hyperlinks um.
Wenn ich solch einen...
15.09.2009 16:50:23
Thread-ID: 1103014
4 Beiträge
find match in ausgeblendeten Zeilen
chris

Hallo Spazialisten,
ich bekomme es einfach nicht hin und bitte euch um Hilfe.
Ich habe eine Datei.In dieser sind 2 Sheets.
In dieser stehen in sheet 1 Nummen die auch in Sheet zwei auftauchen.
Ich blende jetzt alle Zeilen aus in Sheet 2
ws2.Rows("6:50000").EntireRow.Hidden =...
22.02.2010 11:14:41
Thread-ID: 1140259
10 Beiträge
Anzeige
SVERWEIS in ausgeblendeten Zellen
trompete

Hallo nochmal und alle Genie's
mit der freundlichen Unterstützung von Hary habe ich eine Code bekommen der mir, in Anbhängigkeit vom Inhalt einer bestimmten Zelle, eine Bereich vordefinierter Zeilen ausblendet. Soweit so gut, nur habe ich jetzt im dem Bereich der auszublenden Zeilen einen S...
26.09.2010 20:07:54
Thread-ID: 1179463
5 Beiträge
Problem mit ausgeblendeten Zellen
Matthias

Hallo
Ich habe einen Katalog der zum jeweiligen Artikel ein Bild läd.
Die Bildnummer steht in eimem Bereich in dem die Zellen ausgeblendet sind.
Beim Abfragen mit .Value bekomme ich die Bildnummer geliefert und .Text nicht.
Blende ich die Zellen ein geht es auch mit .Text.
W...
08.11.2010 15:14:14
Thread-ID: 1185697
3 Beiträge
Suchen in ausgeblendeten Spalten
Gregor

Hallo
Diese Frage wurde im Forum 2005 gestellt, jedoch ohne Antwort. Bei folgendem Code
Spalte_Eigner = .Rows(1).Find(What:="Eigner", After:=.Cells(1, 1), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Column
...
12.04.2011 11:52:58
Thread-ID: 1209991
6 Beiträge
Suchen in ausgeblendeten Spalten
Florian

Hallo Experten,
ich suche mit VB wie folgt:
-----
With ActiveSheet.Range("b:b")
Set zelle = .Find(suchwert, lookin:=xlValues)
End With
-----
Soweit, so gut... nur leider ist bei mir die Spalte B (also der Suchbereich) eine ausgeblendete Spalte!
Das Makro...
24.05.2002 09:52:19
Thread-ID: 123347
3 Beiträge
Sicherung bei einem ausgeblendeten Tabellenblatt
chris58

Kann leider den Tread nicht mehr aufmachen. Habe daher die letzte Antwort hier reinkopiert.
Hallo Reinhard !
Wenn ich das
if Sheets(i).visible=true Then Sheets(i).copy
eingebe, dann sichert er mir zwar, aber die Datei wird geschlossen.
........................................
04.07.2011 11:10:38
Thread-ID: 1220811
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
2
3
9
3
4
2
5
2
8
1
14
2
6
2
5
4
10
8
12
2
4
1
2
2