Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
912to916
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
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen, danach den Zelleninhalt verschiebe

Zeilen löschen, danach den Zelleninhalt verschiebe
04.10.2007 14:48:00
Selma
Hallo Leute,
ich habe eine Frage:
Folgendes betrifft die Zellen in Spalte A:
- wenn der Zelleninhalt mit "Size", "Complete", "Save", "Referer" anfängt dann sollen diese Zeilen gelöscht werden.
- "Name:" und "Comment:" sollen entfernt werden.
- Der restliche Zelleninhalt von "Comment:" soll in Spalte B parallel zu den restlichen Zelleninhalt von "Name:" verschoben werden.
Anbei eine Beispieldatei ( mit zwei AB's VORHER und NACHHER ) mit Beschreibung: https://www.herber.de/bbs/user/46528.xls
Wie mache ich das?
Vielen Dank im Voraus.
Liebe Grüße
Selma

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

Betreff
Datum
Anwender
Anzeige
Liste per VBA auswerten: Zeile verschieben/löschen
04.10.2007 15:17:44
NoNet
Hallo Selma,
Kopiere das folgende Makro in ein Modul im VBA-Editor und starte es :
Sub ZeilenLoeschenUndVerschieben()
    '04.10.2007, NoNet
    Dim Inhalt, zeile, namezeile
    zeile = 3 'Start ab zeile 3
    namezeile = 0
    Do
        If InStr(Cells(zeile, 1), ":") > 0 Then
            Inhalt = Left(Cells(zeile, 1), InStr(Cells(zeile, 1), ":"))
            Select Case Inhalt
                Case "Name:"
                    Cells(zeile, 1) = Mid(Cells(zeile, 1), 6)
                    namezeile = zeile
                    zeile = zeile + 1
                Case "Comment:"
                    If namezeile > 0 Then
                        Cells(namezeile, 2) = Mid(Cells(zeile, 1), 9)
                        Rows(zeile).EntireRow.Delete
                    Else
                        Cells(zeile, 1) = Mid(Cells(zeile, 1), 9)
                    End If
                Case "Size:", "Complete Time:", "Save as:", "Referer:"
                    Rows(zeile).EntireRow.Delete
                    zeile = zeile - 1
                Case Else
                    zeile = zeile + 1
            End Select
        ElseIf Cells(zeile, 1) = "" Then
            Rows(zeile).EntireRow.Delete
        Else
            zeile = zeile + 1
        End If
    Loop Until Cells(zeile, 1) = "" And Cells(zeile, 1).End(xlDown).Row = Rows.Count
End Sub
Gruß, NoNet
Anzeige
AW: Liste per VBA auswerten: Zeile verschieben/lös
04.10.2007 15:21:16
Selma
Hallo NoNet,
es funktioniert prima. Vielen vielen Dank.
LG
Selma

Noch etwas anderes: Es muss doch "Referrer" heißen
04.10.2007 15:27:00
NoNet
Hallo Selma,
schön, dass das Makro wunschgemäss funktioniert.
Allerdings sollte man beachten dass es in korrektem Englisch "Referrer" heißen muss und nicht "Referer" !
Falls das irgendwann mal korrigiert wird, muss man das Makro entsprechend anpassen.
Gruß, NoNet

ok (owt)
04.10.2007 16:54:00
Selma
ok

308 Forumthreads zu ähnlichen Themen

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
Daten ab bestimmter Anzahl Zeile abschneiden
Joachim

Hi,
ich kopiere auf mein Sheet Daten in eine Textbox und wenn die Informationen zu lange sind, schneide ich sie:
If Len(TextBox7.Value) GRÖSSER 300 Then TextBox7.Value = Left(TextBox7.Value, 300) & "... (mehr Informationen finden Sie online !)"
Nun meine Frage: geht so was auch...
02.09.2008 13:37:00
Thread-ID: 1006769
6 Beiträge
Spalten statt Zeilen filtern
Steffen

Hallo Forum,
den Autofilter kenne ich, aber ich brauche einen Filter der Spalten anstatt der Zeilen und von VBA habe ich leider keine Ahnung.
ich habe eine Tabelle mit Namen in A2:A10. Im Bereich B2:X10 steht in verschiedenen Zellen entweder ein "x" oder die Zellen sind leer.
Nun hä...
29.10.2008 16:41:00
Thread-ID: 1020355
13 Beiträge
Anzeige
Code soll erst ab bestimmter Zeile funktionieren
Joachim

Hi,
wie kann ich denn erreichen, dass der nachfolgende Code erst ab der 10. Zeile überprüft.
Zeilen 1-9 sollen unbeachtet bleiben:
Sub Kopieren() Dim lngRow As Long lngRow = Cells(Rows.Count, "B").End(xlUp).Row MsgBox lngRow End Sub
Danke mal
Joachim
04.12.2008 11:54:00
Thread-ID: 1030126
3 Beiträge
SelectFilter erst ab Zeile4
Josef

Guten Morgen!
Wenn ich bei der nachstehenden Musterdatei zuerst das Makro "Filter_setzen" und danach das Makro "Select_Filter-Terst" starte, so erfolgt in der Tabelle1 die Markeirung erst ab der Zeile 4 und nicht wie gwünscht ab der Zeile 3. Wo und wie müßte ich bitte hier den Code veränder...
13.01.2009 07:52:48
Thread-ID: 1039077
6 Beiträge
Zeilennr. in gefilterten und markierten Bereich
Kasimir

Hallo Leute,
ich stehe auf dem Schlauch und weiß ehrlich auch nicht so ganz, ob das was ich realisieren möchte überhaupt geht?
Also, ich filtere über den Autofilter Daten. Bei diesen gefilterten Daten möchte ich danach einen Bereich, also mehrere zusammenhängende Zellen in einer Spalte...
04.04.2009 08:21:59
Thread-ID: 1066813
7 Beiträge
erste Zeile des Autofilters per VBA erkennen
Ptonka

Hallo zusammen,
ich stehe vor folgendem Problem:
Ich filtere per VBA per Autofilter eine umfangreiche Liste.
Je nach dem, welches Filterkriterium ich mitgebe, ist die erste angezeigte Zeile
eine andere Zeilennummer - logisch.
Nun möchte ich diese erste angezeigte Zeilennumme...
07.05.2009 13:31:01
Thread-ID: 1073590
5 Beiträge
Spaltenbreite nach Filtern anpassen
urs

Guten Abend
Über Filter werden die gesuchten Werte einer grossen Tabelle eingegrenzt.
Wie kann ich nun die Spaltenbreite automatisch der benötigten Breite der SICHTBAREN Zeilen anpassen.
Lässt sich diese benötigte Breite ermitteln? Makro gesucht!
Vielen Dank für Eure Hilfe
G...
26.01.2010 15:51:16
Thread-ID: 1133117
6 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
1
7
5
12
6
2
5
6
4
5
4
1
2
2
1
2
6
10
7
2
7
3
8
2
6