Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
420to424
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
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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 ;)
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

301 Forumthreads zu ähnlichen 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
Anzeige
Daten aus einer Zelle auf mehrere Zellen aufteilen
Gordon

Moin,
ich habe hier einer Zelle (A10) eine bis mehrere Zeichenketten, die jewiels durch ein ";" getrennt werden.
Nun soll jeweils jede Zeichenkette auf drei Zellen aufgespilltet werden:
A1 = Die ersten 10 Zeichen der 1.Kette
B1 = Die nächsten 10 Zeichen der 1.Kette
C1 = Die...
23.08.2008 22:57:00
Thread-ID: 1004183
15 Beiträge
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
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
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
4
14
1
3
7
3
6
6
4
2
8
6
6
8
3
12
10
4
6
8
6
6
4
3