Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1724to1728
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
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren und am Ende einfügen

Kopieren und am Ende einfügen
21.11.2019 10:24:18
And
Ein Hallo an Alle
Ich bin auf der Suche nach einem Makro das mir "Tabelle1" von Zeile 2 an, also A2:Cxx (ende der Reihe unterschiedlich) kopiert und in "Tabelle2" ab Zeile 2 einfügt (nur den Inhalt), dann den nächsten dreier Block D2:Fxx (ende der Reihe unterschiedlich) und diesen dann an das unbekannte Ende des ersten Blocks in "Tabelle2" einfügt, wieder nur den Inhalt. Das ganze soll bis zum Block BF2:BHxx statt finden. Es kann aber auch vorkommen, dass ein 3er Block, z.B. G2:Ixx leer ist.
Vielen Dank im Voraus an Alle

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren und am Ende einfügen
21.11.2019 11:03:51
Werner
Hallo,
teste mal: 
Option Explicit
Public Sub Transponieren()
Dim loLetzteQ As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
For i = 1 To 58 Step 3
loLetzteQ = .Cells(.Rows.Count, i).End(xlUp).Row
If loLetzteQ > 1 Then
.Range(.Cells(2, i), .Cells(loLetzteQ, i + 2)).Copy
With Worksheets("Tabelle2")
.Range("A" & .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row).PasteSpecial  _
Paste:=xlPasteValues
End With
End If
Next i
End With
Application.CutCopyMode = False
End Sub
Gruß Werner
AW: Kopieren und am Ende einfügen
21.11.2019 11:37:28
And
Vielen Dank Werner hat perfekt FUNKTIONIERT.
Ich hab noch eine Frage.
Wie kann ich denn Zeilen löschen in denen bestimmte Texte stehen und wenn sie doppelten sind?
D.h. das Makro sollte sich das Ende des Blocks schnappen in Tabelle2 (am Besten basieren auf Spalte A) und dann von hinten schauen ob ein Zelle (alles in Spalte A) doppelt vorkommt und wenn er schon einmal vorkommt dann ganze Zeile löschen.
Und als zweites soll es genaue Wortteile (auch Spalte A) suchen und ganze Zeile löschen wenn er das Wort gefunden hat (z.B. "PROBE-TEST"), aber nicht wenn in Spalte A "PROBE-TEST-1234" oder 123-PROBE-TEST-1234" steht löschen.
Anzeige
AW: Kopieren und am Ende einfügen
21.11.2019 11:49:55
Werner
Hallo,
Duplicate entfernen: 
Worksheets("Tabelle2").Columns("A:C").RemoveDuplicates Columns:=1, Header:=xlYes

Haben deine Daten keine Überschriften dann Header:=xlYes
Für das andere Problem:
Dürfte sich vermutlich mit dem Autofilter - Textfilter lösen lassen.
Mach mal eine Beispielmappe mit ein paar Datensätzen. Natürlich auch ein paar Datensätze die entfernt werden sollen. Lade die Mappe hier hoch.
Wobei da gleich die Frage ist gibt es da mehrere verschiedene "Bezeichnungen" die entfernt werden müssen?
Gruß Werner
AW: Kopieren und am Ende einfügen
21.11.2019 13:13:36
And
Auch das hat wieder super funktioniert.
Kann man relativ einfach eine Schleife bauen die den Fehler "#WERT!" umwandelt in Fehler1, Fehler2,... so dass dieser Wert nicht als Doppelt behandelt wird? Also Quasi die Spalte A nach dem Fehler "#WERT!" durchsuchen und dann der Reihe nach umwandeln mit fortlaufender Nummerierung.
Anzeige
AW: Kopieren und am Ende einfügen
21.11.2019 21:19:08
Werner
Hallo,
das was du hier machst nennt man Salamitaktik, finde ich nicht so berauschend.
Erst das Kopieren/Transponieren, dann das Entfernen von Duplikaten, dann irgendwelche spezielle Daten löschen (davon ist jetzt aber keine Rede mehr) und jetzt schließlich Fehlerwerte.
Ich hatte dich um eine Datei gebeten - gekommen ist noch nichts.
Jetzt mal für die Sache mit den Fehlerwerten.
Ändere deine Formel, die Fehlerwerte ausgibt:
=WENNFEHLER(DeineFormel);"Fehler"&ZEILE())
Wenn keine Datei kommt bin ich dann raus.
Gruß Werner

325 Forumthreads zu ähnlichen Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Anzeige
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
in spalte müssen 2 gleiche zahlen vorh. sein ...
Jessi

hallo zusammen,
suche nach einem makro, dass in spalte A überprüft ob von den dort geschriebenen zahlen jeweils zwei gleiche vorhanden sind. es geht um eine doppelbelegung eines zimmers. die zahl ist die zimmer-nr.
wäre z.b. nur einmal eine zahl in der spalte, wäre es möglich in das jew...
04.10.2008 15:33:00
Thread-ID: 1014154
5 Beiträge
Anzeige
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Eine Zahl mit vorhandener Zahlenliste vergleichen
Niklas

Hallo Leute!
Es geht darum, eine eingegebene Zahl mit einer vorhandenen Zahlenliste vergleichen und die beiden nächstgelegenen Zahlen der Zahlenliste verwenden!
zur veranschaulichung:
ich habe die die zahlenliste : 1 , 2, 3, 4, 5, 6, 7
der eingegebene Wert ist z.B 1.5 dann soll...
17.10.2008 09:49:22
Thread-ID: 1017045
8 Beiträge
vorgegebene Summe aus Zahlen berechnen
mArsupiLami

Moin!
Ich benötige um regelmäßige Fehlerkorrekturen laufen zu lassen ein Script, dem ich eine Summe vorgebe und eine Range aus Zahlen (von mir aus Zellen A:A), das mir die Zusammenstellung aus Zahlen berechnet, die meine gesuchte Summe ergeben (Noch besser: Alle Kombinationen aus der Zahlen...
21.11.2008 11:25:35
Thread-ID: 1026668
6 Beiträge
Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Autofilter - Anzahl vorh. Sätze
KViertel

Hallo in die Runde,
In einem Tabellenblatt wird In VBA ein Autofilter gesetzt. Die dabei angezeigten Sätze sollen in ein anderes Tabellenblatt kopiert werden. Wenn jetzt keine Sätze vorhanden sind, wird die Sub abgebrochen. In der Recherche habe ich einen Hinweis zu Subtotal gefunden, weiß...
11.12.2008 11:45:00
Thread-ID: 1031999
3 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
11
3
4
3
4
7
5
3
2
4
2
2
5
2
7
11
2
4
4
3
4
5
10
2