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

Zwischen nicht leeren Spalten leere Spalte enfügen

Forumthread: Zwischen nicht leeren Spalten leere Spalte enfügen

Zwischen nicht leeren Spalten leere Spalte enfügen
28.03.2013 20:43:30
chandler
Hallo Forum,
ich versuche eine Lösung für folgendes Problem zu finden.
Zwischen nicht leeren Spalten, die Anzahl der Spalten ist variabel, eine leere Spalte enfügen mit ColumnWidth = 3.14
Wie könnte man das realisieren?
Vielen Dank im Voraus. chandler

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Erledigt
28.03.2013 21:20:01
chandler
so:
Sub JedeZweiteSpalte() Dim c As Integer Cells(1, 1).Select For c = Cells(1, Columns.Count).End(xlToLeft).Column To 2 Step -1 If Not IsEmpty(Cells(1, c)) Then Columns(c).Insert Columns(c).ColumnWidth = 3.14 Next c End Sub

dann war die Frage aber falsch ! kwT
28.03.2013 21:25:05
Matthias

AW: dann war die Frage aber falsch ! kwT
28.03.2013 21:31:52
chandler
Hallo Matthias,
Die Frage war: Zwischen nicht leeren Spalten eine leere Spalte eingügen.
Grüße, chandler

Anzeige
Ja eben. das macht Dein Code aber nicht!
28.03.2013 21:42:41
Matthias
Hallo
Schau Dir es an!
Tabelle1

 ABCDEFGHIJKLMNO
3        x      
4               
5x  x x x    x x
6               
7               
8             x 
9               


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Zwischen Spalte("H") = nicht leer und Spalte("I") = nicht leer muss ja jetzt eine Spalte eingefügt werden.
Ganauso verhält es sich mit Spalte("M"),Spalte("N") und Spalte("O")
Also zwischen nichtleeren Spalten
Sobald in irgend einer Zelle einer Spalte mind. ein Eintrag steht ist dies Spalte auch nicht mehr leer!
Gruß Matthias

Anzeige
AW: Ja eben. das macht Dein Code aber nicht!
28.03.2013 21:51:51
chandler
Hallo Matthias,
ja schon das Makro hat einen Schönheitsfehler, aber wenn in Zeile (A:A) Werte vorhanden, dann funktioniert es doch, oder?
Ich weiß nich wie ich das besser schreiben soll.
Grüße. chandler

Zeilen sind waagerecht, Spalten sind senkrecht! oT
28.03.2013 22:02:01
Matthias

AW: Zeilen sind waagerecht, Spalten sind senkrecht! oT
28.03.2013 22:09:51
chandler
Ja in der Tat,
das Makro beziet sich auf die erste Zeile und fügt nun neue Spalte ein.
Grüße. chandler

Anzeige
und nun, läufts ?
28.03.2013 22:22:56
Matthias
Hallo
Also wenn Du noch Hilfe brauchst, melde Dich nochmal.
Aber erkläre bitte korrekt was Du erreichen möchtest.
Ich kann mit Deinem letzten Beitrag nichts anfangen.
Gruß Matthias

AW: und nun, läufts ?
28.03.2013 22:25:36
chandler
Hallo Matthias,
werde ich sicherlich machen. Nochmals vielen Dank.
Grüß chandler

Anzeige
AW: Zwischen nicht leeren Spalten leere Spalte enfügen
28.03.2013 21:30:36
CitizenX
Hi,
relevanten Bereich markieren-marko ausführen
Option Explicit
Sub insertEmpty()
Dim iCol
For iCol = 1 To Selection.Columns.Count - 1
If Application.CountA(Columns(Selection(iCol).Column)) And Application.CountA(Columns( _
Selection(iCol + 1).Column)) Then
Columns(Selection(iCol).Column + 1).Insert Shift:=xlToRight
Columns(Selection(iCol).Column + 1).ColumnWidth = 6.14
End If
Next
End Sub
Grüße
Steffen

Anzeige
AW: Zwischen nicht leeren Spalten leere Spalte enfügen
28.03.2013 21:37:48
chandler
Hallo Steffen,
vielen Dank für das Makro. Warum funktioniert nur das makro nicht? Tut sich nichts.
Grüße chandler

Forumthreads zu verwandten Themen

Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Anzeige
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Spalten lassen sich nicht auf Breite 0 schieben
Gordon

Moin,
ich versuche gerade per Makro bestimmte Spalten auf die Breite 0 zu schieben. Als es da fr mich unerklärliche Probleme gab, hab ich mal versucht, die Spalten per Hand auf Breite null zu schieben und siehe da, folgende Meldung erscheint: "Objekte können nicht über das Blatt hinausver...
17.09.2008 14:10:57
Thread-ID: 1010385
4 Beiträge
Anzeige
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Inhalt von UF wird nicht angezeigt
UF

Hi Forum,
ich starte meine UF mit dem folgenden Code:
Sub auto_open() Application.WindowState = xlMinimized UF_BitteWarten.Show vbModeless Application.Run "RESETMASK" UF_BitteWarten.Hide UF_Maske.Show End Sub
Wie zu erkennen, wird beim Start ein Reset ausgeführt, der einige Sekun...
26.09.2008 14:29:02
Thread-ID: 1012639
16 Beiträge
Filterergebnisse werden nicht angezeigt
hajo


Hallo zusammen,
wenn ich mit Autofilter einen Filter in VBA setze, wird mir das Ergebnis nicht angezeigt. Wenn ich die gleiche Aktion manuell ausführe bekomme ich das gewünschte Ergbniss. Kann mir jemand helfen?
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter F...
29.10.2008 12:43:42
Thread-ID: 1020236
5 Beiträge
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
Spalte keine Ansicht und nicht drucken
Frederic

Hallo Zusammen
Hätte eine blöde Frage:
Wie kann ich mit VBA erreichen, dass die Spalte C1:C60 nicht in der Seitenansicht und auch nicht gedruckt wird. Grund: Habe dort Listenvermerke drin.
Für Eure generöse Hilfe danke ich schon im Voraus
Salvus
Frederic
20.12.2008 19:23:00
Thread-ID: 1034447
23 Beiträge
Anzeige
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Tab nicht sichtbar
Timmy

Liebe Excler,
ich habe ein Worksheet erstellt, in welches man ueber entsprechende Buttons ueber die UF rein kann.
Wenn ich auf den Sales-Button druecke, sehe ich nur das Sales Sheet. Wenn ich auf den Purchasing-Button druecke, sehe ich das Purchasing und das Sales Sheet.
Das funkti...
16.02.2009 14:49:00
Thread-ID: 1051149
5 Beiträge
Spalten mit Makro nach Vorgabe ein und ausblenden
Christoph

Hallo,
will mit Hilfe eines Makros eine bestimmte Anzahl an Spalten ein- bzw. ausgeblendet haben. Habe selbiges mal für Zeilen selbst programmiert:
Sub Zeilenausblenden() Rows("9:209").Hidden = True Rows("9:" & (9 + Range("A4").Value)).Hidden = False End Sub
Für Spalten klapp...
09.04.2009 14:44:26
Thread-ID: 1068032
3 Beiträge
Macro Prgramm nicht mehr editierbar/sichtbar
Reimund

Hallöli,
mein Macro funktioniert, aber wenn ich es bearbeiten will ist es nicht mehr aufrufbar.
Wo bitte ist der Wurm ?
14.04.2009 23:10:13
Thread-ID: 1068762
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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