Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1864to1868
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
1864to1868
1864to1868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach Zellinhalt eine Spalte einfügen

Nach Zellinhalt eine Spalte einfügen
10.01.2022 16:28:52
Reinhard
Hallo,
ich kopiere Fahrpläne in Excel-Listen. Bei einigen Linien gibt es "an" und "ab" Zeiten (hauptsächlich an den Schulen) hier ist dann zwischen den Haltestellen und der ersten Fahrt eine zusätzliche Spalte. Diese Spalte ist aber eben nicht in jeder Linie enthalten.
Nach dem Kopieren stehen in Spalte A die Haltestellennamen. In Spalte B steht entweder "an" und "ab", oder gleich die erste Linienfahrt. Die Zelle B1 ist also leer oder hier steht die Liniennummer.
Um die Listen anschließend einheitlich formatieren zu können benötige ich bei den Linien ohne "an" und "ab" eine Spalte eingefügt.
Also: Wenn B1=leer dann füge in B eine Spalte ein; Wenn B1=nichtleer dann tue nichts.
kann mir hier jemand helfen?
https://www.herber.de/bbs/user/150314.xlsx

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

Betreff
Datum
Anwender
Anzeige
AW: Nach Zellinhalt eine Spalte einfügen
10.01.2022 16:44:04
Piet
Hallo
ich weise höflich darauf hin das der Text im Thread und das Textfeld im Beispiel nicht übereinstimmen. Ich ging davon aus das verschoben werden muss wenn in Zelle B1 etwas drin steht. Sonst muss man im Code das Gleichzeichen ändern. Einfach ausprobieren.
mfg Piet
  • 
Sub Spalte_einfügen()
Dim j As Integer
For j = 1 To Worksheets.Count
If Worksheets(j).Range("B1")  "" Then    'oder = "" ?
Worksheets(j).Columns(2).Insert shift:=xlToLeft
Worksheets(j).Columns(2).ColumnWidth = 10.7
End If
Next j
End Sub

    • AW: Nach Zellinhalt eine Spalte einfügen
    10.01.2022 17:16:56
    GerdL
    Moin,
    ich habe noch etwas dran rumgefummelt.
    
Sub Spalte_einfügen_und_fixieren()
Dim j As Integer
For j = 1 To Worksheets.Count
With Worksheets(j).Columns(2)
If .Cells(1)  "" Then
.Insert shift:=xlToRight
.ColumnWidth = 10.7
End If
Application.Goto .Offset(0, 1).Cells(2)
End With
ActiveWindow.FreezePanes = True
Next j
End Sub
    Gruß Gerd
    Anzeige
    AW: Nach Zellinhalt eine Spalte einfügen
    11.01.2022 11:31:00
    Reinhard
    Hallo,
    vielen Dank
    Piet: Du hast natürlich recht, da habe ich mich im Thread vertan. Dein Code funktioniert einwandfrei.
    Gerd: Auch Dir vielen Dank, auch wenn ich Deine Version jetzt nicht übernommen habe.
    AW: Danke für die nette Rückmeldung oWt
    11.01.2022 15:52:03
    Piet
    ,,,

    301 Forumthreads zu ähnlichen Themen

    Frage - Spalten einfügen & Spalten untereinander z
    André

    Hallo zusammen!
    Ich habe da als blutiger Anfänger in VBA zwei Fragen:
    1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
    2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
    08.08.2008 16:00:00
    Thread-ID: 1000340
    3 Beiträge
    Anzeige
    Zeilenmerkmale in Spalten umwandeln
    MG_Learning

    Hallo zusammen!
    Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
    A B C
    London 20 Kinos
    London 50 Gaststätten
    London 10 Einkaufscentren
    Paris 18...
    17.08.2008 18:31:50
    Thread-ID: 1002449
    4 Beiträge
    Jede 2te Zeile in eine Spalte kopieren
    Eddie

    Guten Morgen @ all
    Ich habe mal wieder ein kleines problem :-)
    Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
    IST:
    Hallo
    Hello
    Gut
    Good
    ...
    20.08.2008 07:52:00
    Thread-ID: 1003065
    6 Beiträge
    Anzeige
    Letzte gefüllte Zeile in einem Feld anzeigen
    Hendrik

    Hallo zusammen,
    bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
    Ist das möglich?
    Danke im voraus!
    Hendrik
    28.08.2008 18:36:42
    Thread-ID: 1005564
    4 Beiträge
    nur eine der Spalten darf gefüllt sein
    Simon

    Hallo,
    ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
    ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
    dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
    01.09.2008 16:15:00
    Thread-ID: 1006502
    8 Beiträge
    Spalten in Zeilen anhängen
    Jörg

    Hallo zusammen,
    in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
    Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
    01.09.2008 18:03:42
    Thread-ID: 1006570
    11 Beiträge
    Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
    Sandra

    Wie lege ich ein Makro an - für oben genannte Funktion?
    DANKE!!!
    02.09.2008 13:53:00
    Thread-ID: 1006781
    9 Beiträge
    Häufigkeit einer Uhrzeit aus einer Spalte
    wolfgang

    Hallo Leute
    Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
    Schon jetzt besten Dank für eure Mühe...
    02.09.2008 14:57:58
    Thread-ID: 1006808
    9 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
    3
    3
    5
    2
    3
    7
    10
    8
    8
    1
    3
    3
    1
    1
    2
    9
    2
    2
    2
    4
    4
    4
    2
    5