Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
248to252
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
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wo ist die stelle?

wo ist die stelle?
27.04.2003 09:44:16
mehmet
hallo forum,
gestern hatte ich ein sehr schoenes makro bekommen
von einem makro profi

es lauft wunderbar
allerdings moechte ich dies nun auch fuer andere zwecke anpassen

leider finde ich die stelle nicht

es soll also statt spalte "a" nach unten abfragend spalte "k" loeschen

und es sollte bis zeile 30 laufen.

ich danke euch herzlich
gruss
mehmet




9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: wo ist die stelle?
27.04.2003 09:48:26
Forum

Hallo Mehmet

Cells(Zeile,Spalte) also ist Cells(n,1) in Spalte , nuer die 1 in 11 ändern

For n = 50 To 2 Step -1
ist der Scleifenbeginn vobn Zeile 50 bis Zeile 2 und bei jedem Schleifendurchlauf 1 weniger.

Gruß Hajo
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

danke an das forum
27.04.2003 09:57:41
mehmet

ich liebe dieses forum
danke dir hajo
besonders liebe ich diese schnelle antworten auf
die gestellte fragen
einen angenehmen sonntag wuensch ich euch allen
gruesse aus koeln
mehmet

Anzeige
Re: wo ist die stelle?
27.04.2003 14:36:29
Hans W. Hofmann

Sei mir net bös, aber so ein Code kann nicht unkommentiert hier im Form und viel schlimmer in Archiv stehen bleiben.

Lösche alle leeren Zellen in einem Bereich
Range("A2:A50").SpecialCells(xlCellTypeBlanks).Rows.Delete

Was soll eigentlich die For i-Schleife - sie prüft x-mal ob das erste Zeichen ein Leerzeichen ist. Man sollte meinen, das einmal ausreichend ist. In zutreffenden Falle ist automatsch
mycounter + 1 = i

Das ganze Codewerk, so wie ich es verstehe, läuft darauf hinaus, dass eine Zeile, die in Spalte A mit einem Leerzeichen beginnt gelöscht wird, oder?
Das könnte man einfacher haben...


Gruß HW

Anzeige
Leider geht es nicht einfacher...
27.04.2003 15:15:53
Ramses

Hallo Hans,

Ich bin dir net bös,... der Code ist urprünglich von mir :-)

Das Problem war, dass Daten eingelesen werden mit einer fixen Länge und daraus resultierend einer unterschiedlichen Anzahl Leerzeichen davor. ( Daten sind von einem anderen Programm exportiert worden )
Das Problem war nun, dass die fixe Länge auch mit Leerzeichen aufgefüllt wird wenn im jeweiligen Datenblock nichts drin steht.

Deshalb, und ich fand keine andere elegante Lösung, muss ich jedes einzelne Zeichen des Zellinhaltes prüfen, ob wirklich ALLE Leerzeichen sind, nur dann soll/muss die Zeile gelöscht werden.

Gruss Rainer

Anzeige
Re: Leider geht es nicht einfacher...
27.04.2003 15:23:29
Hans W. Hofmann

Ich bin Dir net bös :-),
aber der Code testet nur das erste Zeichen - Schreibfehler?
Deshalb sieht es sehr kaputt aus ;-)

In diesem Falle würde ich Trim(String) empfehlen, was ggf. einen leeren String ergibt.

Gruß HW

Re: Leider geht es nicht einfacher...
27.04.2003 15:32:08
Ramses

Hallo Hans,

Der Code testet das Zeichen i der Strings ob es ein Leerzeichen ist. Deshalb die doofe Schleife.
Mir war auch nicht wohl dabei, aber mir ist nichts besseres eingefallen zu dem Zeitpunkt.

Deine Idee ist auch nicht schlecht.

Len(Trim(Cells(1,1)))

ergäbe die Länge 0 bei einer Anzahl x an Leerzeichen bzw. > 0 wenn andere Zeichen vorhanden sind.
Jetzt weiss ich es fürs nächste mal :-)

Gruss Rainer

Anzeige
Re: Leider geht es nicht einfacher...
27.04.2003 15:41:53
Hans W. Hofmann

Lieber Rainer,

einer von beiden ist Blind. Aber so wie ich das sehe läuft in Deiner Schleife nix - welches i? Da kommt eben KEINE Laufvariable vor. Die Schleife testet immer nur auf dem ersten Zeichen und das len(String)-mal...


Gruß HW

Du hast recht...
27.04.2003 15:47:40
Ramses

Hallo Hans,

sollte statt "n" "i" heissen.
Nun ja,... nobody is perfect ;-)
Nun ist sie ja nicht mehr nötig :-)

Gruss Rainer

300 Forumthreads zu ähnlichen Themen

3 Zellen zu 1ner 3-Zeiligen (wieAlt+Enter) machen
Horst_H

Hallo!
Meine Frage: In Spalte C steht eine Straßenbezeichnung, in Spalte H ein Kommentar und in Spalte I ein zweiter Kommentar. Nun möchte ich per VBA (weil ich viele Mappen unterschiedl. Länge und unterschiedlicher Stadtteile habe) erreichen, dass zusätzlich in die jeweilige Zelle in Spal...
11.08.2008 16:07:27
Thread-ID: 1000899
10 Beiträge
Anzeige
Was ist an diesem VBA-Code falsch?
Heiko31

Hallöchen,
ich möchte mit folgenden Code die Inhalte der Zeilen C122:C218 / M122:M218 / K122:K218 aus allen Arbeitsblättern in die Spalten B / C / D auf dem letzten Tabellenblatt übernehmen.
Die ersten beiden funktionieren wunderbar, aber die Auflistung aus K122:218 funktioniert gar nic...
23.11.2008 15:55:00
Thread-ID: 1027099
7 Beiträge
Was ist an diesem Makro falsch
jens-claus

Hallo Excelfreunde,
ich hatte nachstehendes Makro im Einsatz, dies lief auch fehlerfrei.
Doch jetzt stoppt das Makro bei: .HPageBreaks(i).Delete
Das Makro soll jeweils bei Wechsel in der Spalte G eine neue Seite ausdrucken.
Wer kann mir helfen?
Besten Dank im voraus.
S...
02.12.2008 16:11:00
Thread-ID: 1029548
3 Beiträge
Anzeige
Schaltfläche funktioniert bei Blattschutz nicht
manuela

hallo
möchte die daten aus einer sql-datenbank mittels makro aktualisieren. dazu hebe ich zuerst den blattschutz auf, aktualisiere und setze den blattschutz wieder. das makro läuft einwandfrei. sobald ich es aber mit einer userform auf dem blatt selbst verknüpfe, kriege ich eine fehlermeldu...
04.02.2009 11:12:30
Thread-ID: 1046940
5 Beiträge
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
Zeilenumbruch in Zelle mit Bezug
Ulf

Hallo Spezialisten,
wenn ich in einer Zelle einen Zeilenumbruch brauche geht das bekanntlich
mit ALT + ENTER.
Nun möchte ich diesen gleichen mehrzeiligen Text in einer zweiten Zelle
anzeigen. In dieser Zelle werden die Zeilenumbrüche nicht erkannt und
als kleine Kästche...
14.05.2009 10:00:45
Thread-ID: 1075028
5 Beiträge
Zeilenumbruch in Zelle mit Verkettungen
Rolf

Hallo!
ich möchte in eine Zelle folgendes schreiben: ="Text" & A1
Dann sollte aber der Text in der 1. Zeile stehen, der Rest in der 2. Zeile.
Alt-Return klappt leider nicht.
Kann mir jemand sagen, wie ich das hinkriege (ohne die Zelle entsprechend zu verkleinern)?
Danke<...
02.06.2009 09:48:33
Thread-ID: 1078547
6 Beiträge
Problem mit Zeilenumbruch in verbundenen Zellen
Christian

Hallo zusammen!
nachdem auf meinen letzten Beitrag leider keine Antworten eingegangen sind, habe ich nochmal selbst versucht, das Problem einzugrenzen.
Es ist nicht nur auf das Dokument beschränkt, mit dem ich Probleme hatte.
Man kann das Problem nachstellen:
Zellen A1 bis D30 v...
03.07.2009 22:42:59
Thread-ID: 1086260
3 Beiträge

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
9
3
6
2
8
4
3
4
5
2
6
4
3
8
2
2
4
10
17
11
13
7
4
9
11