Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1352to1356
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
1352to1356
1352to1356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vba x Spalten verbinden

Vba x Spalten verbinden
19.03.2014 17:48:50
Spenski
Hallo Ich bin zur Zeit auf der Arbeit damit beschäftigt eine plantafel mit mehreren Maschinen zu simulieren . Leider ist der Zeitaufwand für die datenbalkenerstellung (1000stk die Woche) sehr aufwendig
Planbalken: 1 spalte = 1min , die markier ich zz Manuel und verbinde sie
Meine Frage ist ob folgendes mit vba umsetzbar wäre
In A1:A1000 stehen die Anzahl der Spalten die der jeweilige Balken hat (Zahlen werden Manuel eingetragen und sind daher vorhanden)
Ist es möglich per Knopfdruck die jeweiligen Balken automatisch in der richtigen Größe zu erstellen?
Danke fürs durchlesen , vielleicht weiß da ja jmd was ;)

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vba x Spalten verbinden
19.03.2014 18:07:22
hary
Moin
Warum muessen die verbunden sein.
Reicht es nicht evtl. mit bedingter Formatierung.
sieht dann so aus.



Tabelle1
 ABCDEFG
13      
25      
32      

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

gruss hary

Anzeige
AW: Vba x Spalten verbinden
19.03.2014 18:18:09
Spenski
Hallo danke für die Antwort.
Die Spalten müssen leider verbunden sein.
Die erstellten Balken schneide ich dann aus und füge sie auf eine zeitlinie( anderes Arbeitsblatt) ein , je nachdem welchen Auftrag ich gerade brauche. Das funktioniert auch alles super und geht recht schnell und einfach zum planen und verschieben...
Nur die balkenerstellung dauert ewig da ich am Tag 1000 x Zellen abzählen und verbinden muss
Aber dein Post interessiert mich auch, wie funktioniert das? Das gab ich vor kurzen schonmal gesucht

AW:Balken mit bed. Formatierung
19.03.2014 18:23:51
hary
Moin
Geht so.



Tabelle1
 ABCDEFG
13      
25      
32      
Bedingte Formatierung wird in dieser Tabelle nicht dargestellt

Bedingte Formatierung Haupttabelle 1  
Zelle   Nr. Bed.  Regeltyp  Operator   Formel1   Formel2   Format Schrift Füllfarbe   Unterstrichen   Schrift- farbe Muster   Musterfarbe Typ
B1:F301.Bed.: Formel ist =SPALTE()<=$A1+1  5287936         2
Bedingte Formatierung Haupttabelle 2 oberere/unterer Bereich    
Zelle   Nr. Bed.  Format Zelle Anhalten Auswahl   Anzeige   Anzahl   Durchschnitt   Typ  
B1:F301.Bed.   Wahr          2
Rahmen
    Links     Rechts     Oben     Unten  
 Zelle   Nr. Bed.   Linienart     Farbe     Linienart     Farbe     Linienart     Farbe     Linienart     Farbe  
B1:F301.Bed.         dünn durchgehend 0   dünn durchgehend 0 
Die Bedingungen wurden mit Excel-Version ab 2007 ausgelesen.


http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

gruss hary

Anzeige
AW: AW:Balken mit bed. Formatierung
19.03.2014 18:39:44
Spenski
danke

AW: Vba x Spalten verbinden
19.03.2014 18:09:34
ransi
HAllo
Wenn auf der TAbelle1 in A1:A1000 deine Zahlen stehen, kannst du das so lösen:
Option Explicit

Sub machs()
    Dim L As Long
    With Sheets("tabelle1")
        For L = 1 To 1000
            .Cells(L, 1).Resize(, .Cells(L, 1).Value).Merge
        Next
    End With
End Sub


Ich frag mich allerdings warum du kein Diagramm erstellst ?
ransi

Anzeige
AW: Vba x Spalten verbinden
19.03.2014 18:44:24
Spenski
hallo ransi. ein diagram geht nicht da ich die balken später manuell ausschneide und damit in einer plantafel mit 10 maschinen plane und auch die balken manchmal tauschen muss.
dein makro ist schon sehr nahe an dem was ich suche also habe ich hoffnung das es auch genau das gibt was ich suche.
ich habe mal eine datei mit hochgeladen. oben sieht man das ergebnis mit deinem makro und unten sieht man das ergebnis wie ich es suche
https://www.herber.de/bbs/user/89749.xlsx
evtl hast da ja ne idee zu aber ich bin dir schon sehr dankbar für deine idee

Anzeige
AW: Vba x Spalten verbinden
19.03.2014 18:47:10
Spenski
edit: in Spalte B8 darf nicht zb =A8 stehen da der Balken in Spalte b einen Namen bekommt
also der balken darf keinen inhalt haben

AW: Vba x Spalten verbinden
19.03.2014 18:59:56
ransi
Hallo
DAnn versuch mal so:
Option Explicit



Sub machs()
    Dim L As Long
    With Sheets("tabelle1")
        For L = 1 To 1000
            With .Cells(L, 2).Resize(, .Cells(L, 1).Value)
                .Merge
                .Value = "" '...da der Balken in Spalte b einen Namen bekommt. Den vergibst du hier !
                .Borders.LineStyle = xlContinuous
                .Borders.Weight = xlThick
            End With
        Next
    End With
End Sub



ransi

Anzeige
AW: Vba x Spalten verbinden
19.03.2014 19:22:09
Spenski
du bist gerade mein persönlicher gott :D
mit dem namen geben klappt auch super und ein resetknopf hab ich mir auch gebastelt.
habe jetzt noch 2 sachen:
a: es kommt nach jedem mal die fehlermeldun 400 (das aber nicht so schlimm)
B: wird das makro bei einem wert unter 1 in spalte a (also 0) unterbrochen. kann man das überspringen?
trotzdem daaaaaanke :D du sparst mir 20 stunden die woche

AW: Vba x Spalten verbinden
19.03.2014 19:39:42
ransi
HAllo
Den LAufzeitfehler 400 kann ich nicht nachvollziehen.
Dazu bräuchte ich die Originaltabelle.
Aber die ungültigen Wert in Spalte A kannst du doch ganz einfach mit einer Abfrage auf >=1 abfangen...
Option Explicit



Sub machs()
    Dim L As Long
    With Sheets("tabelle1")
        For L = 1 To 1000
            If .Cells(L, 1).Value >= 1 Then ' wird das makro bei einem wert unter 1 in spalte a (also 0) unterbrochen. kann man das überspringen?
                With .Cells(L, 2).Resize(, .Cells(L, 1).Value)
                    .Merge
                    .Value = "" '...da der Balken in Spalte b einen Namen bekommt. Den vergibst du hier !
                    .Borders.LineStyle = xlContinuous
                    .Borders.Weight = xlThick
                End With
                Else:
                MsgBox "Kein gültiger Wert in Spalte1"
            End If
        Next
    End With
End Sub


ransi

Anzeige
AW: Vba x Spalten verbinden
19.03.2014 20:40:03
Spenski
So klappt alles :D
hier mal das ergebnis im kleinausführung
https://www.herber.de/bbs/user/89753.xlsm
fehlermeldungen sind auch alle weg.
hab noch eine frage dann lass ich dich in ruhe:D
wenn ich jetzt die zahlen in f1:f1000 hätte und dann in spalte g+ die balken darstellen will was müsste ich da ändern?
bin vba leihe daher tun mir die vielen fragen leid. bin froh das was hier gepostet wurde so umzusetzen
danke

AW: Vba x Spalten verbinden
19.03.2014 21:05:22
Spenski
Hans selber rausgefunden...so jetzt bin ich glücklich
Nochmal danke

300 Forumthreads zu ähnlichen Themen

Automatisch Zeilen einfügen und Text reinschreiben
oblivion

Hallo,
hab folgendes Problem.
Ich habe ein Tabelle mit 4 Spalten. Wegen dem automatischen Zeilenumbruch habe ich keine vebundenen Zeilen.
In Excel ist die Zeilenhöhe ja auf 409 begrenzt. Ich habe aber teilweise Text der größere Spalten bräuchte.
Wenn ich die Spalte größer mach...
02.09.2008 20:54:00
Thread-ID: 1006942
5 Beiträge
Anzeige
Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Text in Spalten
Simone

Hallo zusammen,
ich hab ein wohl eher triviales Problem, komme aber trotzdem einfach nicht weiter.
Ich füge in ein Arbeitsblatt Daten aus einem anderen Programm ein. Jetzt habe ich mehrmals die Funktion 'Text in Spalten' verwendet / ausprobiert, und wenn ich jetzt wieder Daten in A1 ein...
16.09.2008 13:54:00
Thread-ID: 1010092
3 Beiträge
Anzeige
Text in Spalten
Tom

Hallo,
ich möchte mit der Funktion Text in Spalten erreichen, dass alle Zeilen, die mit einer Zahl beginnen, nach der Zahl in eine neue Spalte geschoben werden - nur finde ich hierfür nur die Funktionen nach Leerzeichen, Komma usw...
Wer hat ne Lösung?
In A1: 1020 Maier Huber Mülle...
20.10.2008 14:09:42
Thread-ID: 1017654
7 Beiträge
Text autom. in Excel-Spalten einsortieren
Annalena49

Hallo,
habe eine (für mich) ungewöhnliche Datendatei, ähnlich CSV ist aber keine CSV. Hier ein Beispiel einer Excel-Zeile:
10153-8158 10194 1023007 1025250000 102950600 1030LP 1032EUR 1029880000 1032EUA 11010100001 1102UM 110105586724 1102KN 11019783815860847 1102EN 11013815860849 110...
05.12.2008 20:54:02
Thread-ID: 1030586
3 Beiträge
Linien, wenn Text in Zeile - VBA
Wolfgang

Hallo,
in einer Arbeitsmappe hatte ich bislang bis ca. Zeile 6000 für die Spalten A-Q das Format für die Linien direkt über Zellenformat vorgegeben. Das macht die Datei wohl doch relativ fett.- Gäbe es eine Möglichkeit, evtl. über VBA zu steuern, dass ausschließlich die Zeilen, in denen au...
07.12.2008 09:58:34
Thread-ID: 1030803
2 Beiträge
Spalten in VBA anpassen
Markus

Hallo zusammen,
eine vermutlich blöde Frage.
Ich lese aus einem Anwendungsfenster Daten in bestimmte Zellen aus. Wenn alle Daten (je nach Anwendung bis zu 30 Spalteneinträge) ausgelesen sind, erfasse ich die Zeit mit ActiveCell.Offset(0, 10).Value = Format(Date & " " & Time)
10.12.2008 20:45:20
Thread-ID: 1031825
9 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 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
4
3
2
2
5
6
2
1
8
21
5
5
2
8
5
1
1
5
6
28
6
1
5
5
5