Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

leere Zellen löschen anschließend Zelleninhalt..?

Forumthread: leere Zellen löschen anschließend Zelleninhalt..?

leere Zellen löschen anschließend Zelleninhalt..?
Selma
Hallo Leute,
Ich habe ein Tabellenblatt (siehe Anhang) in dem ich (per Makro)
alle leeren Zellen löschen möchte und anschließend jede zweite
Zelleninhalt (Spalte A) in Spalte B verschieben möchte, dabei soll dieser
Text gelöscht werden " directory " das z.B. nur dieses bleibt "07.02.2004 03:07".
Beispieldatei:

Die Datei https://www.herber.de/bbs/user/5909.xls wurde aus Datenschutzgründen gelöscht

Wie mache ich das?
Dankeschön im Voraus....
Liebe Grüße
Selma
Anzeige

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

Betreff
Benutzer
Anzeige
D A N K E S C H Ö N
01.05.2004 21:45:34
Selma
Hallo Georg,
super es funzt :)
D A N K E S C H Ö N
Liebe Grüße
Selma
AW: leere Zellen löschen anschließend Zelleninhalt..?
01.05.2004 21:38:00
Selma
"leeren Zeilen" war gemeint ;)
Anzeige
AW: leere Zellen löschen anschließend Zelleninhalt
Reinhard
Hi Selma,
klicke mit rechter Maustaste unten auf den Tabellennammen, dann mit links auf "Code anzeigen", dorthinein dann das nachfolgende Makro kopieren.
Klappt problemlos wenn dein Tabellenaufbau immer gleich ist, also die Spalte runter immer ViererBlocks aus TextA, Leerzeile, TextB, Leerzeile.
TextA steht dann in Spalte A , TextB steht dann um directory gekürzt in Spalte B
Gruß
Reinhard

Sub selma()
Dim zae As Integer, n As Integer
ende = Range("a65536").End(xlUp).Row + 1
For n = 1 To ende Step 4
zae = zae + 1
Cells(zae, 1) = Cells(n, 1)
Cells(zae, 2) = Mid(Cells(n + 2, 1), InStr(Cells(n + 2, 1), "directory") + 11)
Next n
Range(Cells(zae + 1, 1), Cells(ende, 2)).Clear
End Sub



Sub selma()
Dim zae As Integer, n As Integer
ende = Range("a65536").End(xlUp).Row + 1
For n = 1 To ende Step 4
zae = zae + 1
Cells(zae, 1) = Cells(n, 1)
Cells(zae, 2) = Mid(Cells(n + 2, 1), InStr(Cells(n + 2, 1), "directory") + 11)
Next n
Range(Cells(zae + 1, 1), Cells(ende, 2)).Clear
End Sub

Anzeige

Forumthreads zu verwandten Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
Zeilenhöhe nach Zelleninhalt
Tom

Hallo,
Ich möchte gern je nach Zelleninhalt in der Spalte "D" die Zeilenhöhe abhängig machen.
Steht in "D" Hauptprojekt, so soll die Zeilenhöhe 27 betragen
steht in "D" Teilprojekt, so soll die Zeilenhöhe 20 sein
und ist "D" leer, dann soll die Zeilenhöhe 15 betragen
Die For...
01.09.2008 13:53:00
Thread-ID: 1006431
2 Beiträge
Datei öffnen - nach Zelleninhalt
Jens

Hallo,
Ich habe einen Ordner (C:/excel/muster) der mehrere Exceldateien enthält (auswahl.xls, 101.xls, 102.xls, etc.)
Nun möchte ich in der Datei auswahl.xls in der Zelle A1 eine Zahl eingeben, z.B. 101
und dann mit Klick auf Schaltfläche soll sich die Datei 101.xls in einem neuen F...
11.09.2008 11:29:25
Thread-ID: 1009049
4 Beiträge
Anzeige
Zellenhöhe mit Zelleninhalt berechnen
Christoph

Hallo,
ich möchte das vba-skript von https://www.herber.de/forum/archiv/1004to1008/t1006435.htm
(ganz unten) gerne etwas anpassen, und zwar so, dass die Zellenhöhe direkt aus dem Zelleninhalt berechnet wird. Hier ist mein Versuch, der aber leider nicht funkti0oniert:
Sub zeilenhö...
24.09.2008 17:32:00
Thread-ID: 1012131
8 Beiträge
in Zellen Schreiben wenn Kriterium erfüllt
Nikolay

Guten Tag verehrte Damen und Herren,
lieber Namensvetter,
ich habe derweilen ein kleines Problem. Ich gestalte schon seit einigen Jahren meine persönliche Buchführung mit Excel.
Von Jahr zu Jahr wird das ganze komplizierter. Nun stehe ich vor einem Problem, welches ich selbst nicht...
05.10.2008 14:57:00
Thread-ID: 1014252
4 Beiträge
Löschen von best. Zelleninhalt
best.

Guten Mittag :-)
Ich habe mal wieder einen Wunsch *gg*
Ich würde gerne aus einem bestimmten Tabellenbereich (Spalte A) das man nach einen bestimmten Suffix (heißt das so ? :-) Sucht, und dann alles was davor steht löscht.
der Suffix heißt " | "
Vorher
001 | Testbsp1 002 |...
04.11.2008 11:06:00
Thread-ID: 1021519
7 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 Beiträge
Inhalt einer Zelle in mehrere Zellen aufsplitten
Joerschi

Hallo liebe Excel-Community,
ich möchte den Inhalt einer Zelle (getrennt durch Leerzeichen) in andere Zellen aufsplitten bzw. in anderen Zellen getrennt anzeigen lassen. Die Leerzeichen aus der Herkunftszelle sollen dabei ignoriert werden.
Z. B. steht in Zelle A1: "1 2 3 4 5"
Jetzt...
04.03.2009 11:46:03
Thread-ID: 1056268
9 Beiträge
Addition abhängig von anderen Zelleninhalten
anderen

Hallo ich habe ein Problem, bei dem ich leider nicht weiterkomme.
In den Zellen C8, D8, und E8 können jeweils bis zu 3 verschiedene Begriffe stehen.
In meinem Fall „Central Location“ „In-Field“ und „n/a“. Es kann sein, dass ein Argument nur 1x oder bis zu 3x vorkommt mit allen mögliche...
09.03.2009 12:35:38
Thread-ID: 1058115
7 Beiträge
Mehrere Zellen gleichzeitig farblich markieren
KLAUS

Hallo!
Ich habe eine Tabelle in der von B9 bis V45 in jeder Zelle ein Namenskürzel steht, insgesamt 21 verschiedene.
Jetzt möchte ich alle Kürzel von einer Person, die aber an unterschiedlichen,d.h. nicht zusammenhängenden, Zellen stehen mit wenig Aufwand und Suchaktionen mit einem Arbe...
11.03.2009 12:29:52
Thread-ID: 1059068
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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