Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1280to1284
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
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ExcelVBA nur gefüllte Zellen einer Spalte kopieren

ExcelVBA nur gefüllte Zellen einer Spalte kopieren
23.10.2012 20:53:36
Frank
Hallo zusammen,
ich bin noch ein VBA Neuling und hoffe, dass Ihr mir helfen könnt.
Ich möchte in einer Arbeitsmappe die Spalte B ab Zeile 2 die gefüllten Zellen von Tabelle 1 nach Tabelle 2 Spalte B3 kopieren.
Dies habe ich mit dem Makrorecorder hinbekommen, aber nur mit einem festen Wert.
Sub kopieren01()
Sheets("Tabelle1").Select
Range("B2:B44").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Da aber die Spalte unterschiedlich gefüllt ist, möchte ich, statt des festen Wert B44 immer soweit, wie die Zellen in der Spalte gefüllt sind, diese kopieren.
Vielleicht könnt Ihr mir weiterhelfen.
Vielen Dank im Voraus
Frank

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ExcelVBA nur gefüllte Zellen einer Spalte kopieren
23.10.2012 21:11:36
hary
Hallo Frank 
With Sheets("Tabelle1")
.Range("B2:B" & .Cells(.Rows.Count, 2).End(xlUp).Row + 1).Copy
Sheets("Tabelle2").Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,  _
SkipBlanks _
:=False, Transpose:=False
End With

gruss hary

AW: Korrektur
23.10.2012 21:13:30
hary
Hallo
Nimm diesen. 
With Sheets("Tabelle1")
.Range("B2:B" & .Cells(.Rows.Count, 2).End(xlUp).Row).Copy
Sheets("Tabelle2").Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,  _
SkipBlanks _
:=False, Transpose:=False
End With
Application.CutCopyMode = False

gruss hary

Anzeige
AW: ExcelVBA nur gefüllte Zellen einer Spalte kopieren
23.10.2012 21:16:39
Peter
Hallo Frank,
versuche es einmal so: 
Sub kopieren01()
With ThisWorkbook.Worksheets("Tabelle1")
.Range("B2:B44").Copy
ThisWorkbook.Worksheets("Tabelle2").Range("B3"). _
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=True, Transpose:=False
End With
End Sub

Gruß Peter

AW: @Peter
23.10.2012 21:25:30
hary
Hallo Peter
Zitat:
"statt des festen Wert B44 immer soweit, wie die Zellen in der Spalte gefüllt "
gruss hary

67 Forumthreads zu ähnlichen Themen

Nur Zellen mit Text kopieren
Peter

Hallo
ich bin gerade dabei eine Excel Tabelle zu bearbeiten und haben ein Auswahltabellenblatt wo ich über
Kontrollkästchen verschiedene Options auswählen kann, bzw noch die Anzahl angeben kann.
In einen Datentabellenblatt werden mir untereinander die Daten ausgegeben.
Das heißt...
15.06.2009 12:58:41
Thread-ID: 1081552
21 Beiträge
Anzeige
Nur in 2 Zellen Nullwerte anzeigen
Heinz

Hallo Leute
Ich habe in einer Tabelle die Nullwerte ausgeblendet.
Nun möchte ich aber in J5 und in J36 die Nullwerte "0,00" angezeigt haben.
Gibt es dazu bitte eine Möglichkeit ?
Gruß Heinz
06.07.2010 18:02:45
Thread-ID: 1165742
3 Beiträge
nur freigegebene Zellen kopieren
Stefan

Hallo Zusammen,
habe ein kleines Problem...
Möchte gerne aus einer Alten XLS eine Spalte 8 in die neue XLS übernehmen.
Bringt mir jedoch eine Fehlermeldung.
Grund: es gibt in der Spalte einige Zeilen die schreibgeschützt sind.
Wie kann ich nur die nicht gesperrten Zellen kop...
10.08.2010 09:04:57
Thread-ID: 1171356
5 Beiträge
Anzeige
Nur sichtbare Zellen kopieren
Bernd

Hallo,
ich habe eine Excel-Filter mit Autofilter und möchte nur die gefilterten Zeilen (ohne daran anschließenden Leerzeilen) markieren und per Makro in eine andere Datei übertragen. Über "Gehezu /Inhalte/Nur sichtbare Zellen" werden dummerweise auch die Leerzeilen unter dem gefilterten Ber...
13.09.2011 14:56:59
Thread-ID: 1229699
4 Beiträge
Alle folgenden Zellen markieren, bis leere kommen.
T.

Hallo Ekschpärt`n,
Frage an euch: Von einer aktiven Zelle aus sollen alle danach folgenden, in denen ein Wert enthalten ist, solange markiert werden, bis zwei aufeinanderfolgende leere Zellen kommen.
Also beispeilsweise von A1 ab bis A9 durchmarkieren (neun Zellen markiert), um diese zu...
06.10.2012 18:29:45
Thread-ID: 1280786
22 Beiträge
Nur Zellenwert kopieren nicht Formel in Zelle
MPH

Hi Leute habe wieder ein Problemchen.
ich würde gerne einen Zellenwert in eine andere Zelle kopieren.
Problem ist aber , wenn ich es so mache:
Private Sub CommandButton_Click() Worksheets(Verbindung").Range("i2:w2").copy Destination:=Worksheets("Verbindung").Range("aa1: _ Ap1") End...
04.12.2012 14:59:14
Thread-ID: 1289260
13 Beiträge
nur ausgefüllte zellen kopieren
rahel

wie kann ich mit einem makro aus einem excel-tabellenblatt nur den bereich in die zwischenablage kopieren, der einträge enthält?
17.06.2002 16:25:29
Thread-ID: 129253
6 Beiträge
Nur Zellen mit Inhalt markieren
Fuchs


Hallo Leute.
ich bin gerade dabei riesige mengen an alten *.txt dateien in exel reinzukloppen ;-) Gibt es ein makro mit dem ich nur die zellen markieren kann, die einen inhalt haben?
Schon mal vielen dank!

20.06.2002 14:12:12
Thread-ID: 130181
2 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
20
13
2
4
3
3
21
12
5
1
11
3
7
3
7
3
3
6
4
5
5
4
7
9
1