Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1576to1580

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Bereich in Zwischenablage kopieren

Forumthread: Bereich in Zwischenablage kopieren
14 Beiträge zu diesem Forumthread
Anzeige
219 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

25.08.2017 09:28:02

Sebastian

Hi zusammen, ich hätte da noch ein Anliegen :)
Ich bräuchte ein Makro was mit einen bestimmten festgelegten Bereich in die Zwischenablage kopiert. Spallte K(17-1500) ABER wirklich nur den mit Text gefüllten Bereich. Ich hatte es schon hinbekommen aber dann kopiert er 1488 Leerstellen mit ...
Gibt es da eine Lösung ?

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bereich in Zwischenablage kopieren

25.08.2017 09:31:42

UweD
AW: Bereich in Zwischenablage kopieren

25.08.2017 09:34:13

Sebastian
AW: Bereich in Zwischenablage kopieren

25.08.2017 09:57:19

UweD
AW: Bereich in Zwischenablage kopieren

25.08.2017 10:09:28

Sebastian
AW: Bereich in Zwischenablage kopieren

25.08.2017 10:24:03

UweD
AW: Bereich in Zwischenablage kopieren

25.08.2017 10:28:14

UweD
AW: Bereich in Zwischenablage kopieren

25.08.2017 10:53:17

Sebastian
AW: Bereich in Zwischenablage kopieren

25.08.2017 11:02:33

UweD
AW: Bereich in Zwischenablage kopieren

25.08.2017 11:28:36

Werner
AW: Bereich in Zwischenablage kopieren

25.08.2017 11:40:38

Sebastian
AW: Bereich in Zwischenablage kopieren

25.08.2017 11:46:08

Werner
AW: Bereich in Zwischenablage kopieren

25.08.2017 11:48:56

Sebastian
AW: Bereich in Zwischenablage kopieren

25.08.2017 11:56:26

Werner
AW: Bereich in Zwischenablage kopieren

25.08.2017 12:40:37

Sebastian

AW: Bereich in Zwischenablage kopieren

25.08.2017 09:31:42

UweD

Hallo
was willst du danach mit den "Einzelzellen" machen?
Je nach Anforderung kannst du die "Zellen mit Text" per Schleife abarbeiten.
LG uweD

AW: Bereich in Zwischenablage kopieren

25.08.2017 09:34:13

Sebastian

Also, die Zeilen sind schon untereinander. Aber es kommen je nach Menge bis zu 1499 Leerzeilen. Ich möchte die untereinanderleiegenden Zeilen kopieren und in einem anderen programm wieder einfügen.

AW: Bereich in Zwischenablage kopieren

25.08.2017 09:57:19

UweD

Hallo
meinst du das so?

Sub Makro2()
    Dim Tb1 As Worksheet
    Dim Tb2 As Worksheet
    Dim LR As Integer
        
    Set Tb1 = Sheets("Tabelle1")
    Set Tb2 = Sheets("Tabelle2")
    Tb2.Columns("A").Clear 'reset 
    
    LR = Tb1.Cells(Tb1.Rows.Count, "K").End(xlUp).Row 'letzte Zeile der Spalte K 
    
    Tb1.Range("K17:K" & LR).Copy Tb2.Range("A1")
    
End Sub

LG UweD

AW: Bereich in Zwischenablage kopieren

25.08.2017 10:09:28

Sebastian

Also ich verstehe nicht viel von dem VBA :( Aber die Spallte ist auf Tabellenblatt 2 und es soll nur der Gefüllte bereich ab K17 in die Zwischenablage Kopiert werde, nicht auf ein anderes Blatt

AW: Bereich in Zwischenablage kopieren

25.08.2017 10:24:03

UweD

Wie sehen die Daten denn nun aus?
Mit Lücken, oder ohne?

Tabelle1

	K	L
13	Wie sehen deine Datei denn aus?
14	so?	oder so?
15		wew
16		333
17	wqwqw	eee
18		ewe
19	wqw	e4444
20	wqwqw	4443
21		wwe
22
23
24
25
26	ssd
27	wew
28
29	d
30	d
31
32	d
33

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip

http://Hajo-Excel.de/tools.htm

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 21.10 einschl. 64 Bit

AW: Bereich in Zwischenablage kopieren

25.08.2017 10:28:14

UweD

dann so.


Sub Makro1()
Dim RNG As Range
Set RNG = Range("K17:K1500")
If WorksheetFunction.CountA(RNG) > 0 Then
RNG.SpecialCells(xlCellTypeConstants, 3).Copy
End If
End Sub

AW: Bereich in Zwischenablage kopieren

25.08.2017 10:53:17

Sebastian

So sehen die Daten aus. Das gelbe unter halb sind die freien Felder die nict kopiert werden sollen wenn sie leer sind. Dein Code geht leider nicht. Er sagt er hätte keine Zellen gefunden. Die Felder enthalten eine Formel die "" als leer benutzt !

AW: Bereich in Zwischenablage kopieren

25.08.2017 11:02:33

UweD

In deinem Ersten Beitrag schreibst du es sei TEXT, jetzt sind es FORMELN.
das ist dann klar, dass nichts gefunden wird
ich habe nach xlCellTypeConstants (Konstanten= Text und Zahlen) gesucht
Bei "" (durch Formel) ist eine Zelle NICHT leer.
Ich gebe weiter an alle

AW: Bereich in Zwischenablage kopieren

25.08.2017 11:28:36

Werner

Hallo Sebastian,
wenn Formeln, die leer ausgeben, dann kann man die letzte belegte Zeile so ermitteln:

Public Sub Kopieren()
Dim raLetzte As Range
With Worksheets("Tabelle2")
Set raLetzte = .Columns(11).Find(What:="*", LookIn:=xlValues, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
MatchCase:=False, SearchFormat:=False)
If Not raLetzte Is Nothing Then
If raLetzte.Row

Gruß Werner

AW: Bereich in Zwischenablage kopieren

25.08.2017 11:40:38

Sebastian

Hi :) Also die Zeile ist jetzt nach N gerutscht aber, davon mal abgesehen kopiert er immer noch alles :(

AW: Bereich in Zwischenablage kopieren

25.08.2017 11:46:08

Werner

Hallo Sebastian,
meinst du nicht, dass es so langsam mal Zeit wird für eine Beispieldatei (in der es nicht funktioniert), oder sollen wir hier weiter im Nebel stochern?
Bei mir aber eine ohne Makros, die kann ich im Moment nicht runter laden.
Gruß Werner

AW: Bereich in Zwischenablage kopieren

25.08.2017 11:48:56

Sebastian

Hi das Problem ist das das eine Riesen datei voll mit sensiblen Daten ist, sonst hätte ich das schon hochgeladen. Sorry das es so sehr komplizert ist :(

AW: Bereich in Zwischenablage kopieren

25.08.2017 11:56:26

Werner

Hallo Sebastian,
was hindert dich daran die sensiblen Daten zu löschen? Im Prinzip braucht es nur die Tabelle mit der Spalte N und den Formeln da drin. Sowie ein paar Daten, dass die Formeln in der Spalte N auch ein paar Ergebnisse liefern.
Ohne Datei bin ich raus.
Gruß Werner

AW: Bereich in Zwischenablage kopieren

25.08.2017 12:40:37

Sebastian

OK sorry, dann geht es leider nicht. Die Liste basiert auf einer anderen Liste die die Quell-Daten liefert. Das jetzt so aumzubauen das keine sensilbelen Daten rausgehen. Ist ein riesen Aufwand. Dann muss ich irgdnwie weiter probieren. Danke trotzdem