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

neue Tabelle für Kabelname

Forumthread: neue Tabelle für Kabelname

neue Tabelle für Kabelname
17.10.2024 10:46:47
Martin
Hallo
ist es per Script möglich anhand der Gesamttabelle (erste Tabelle) unter Kabelname alle

=BOMb.BA*
=BOMb.BOU*
=BOMb.C31*
=BOMb.C41*
=BOMb.P30*
=BOMb.P31*

zusammen zu fassen und in eine neue Tabelle zu sortieren, so wie es jetzt schon ist?
Kann es variabel gemacht werden, falls sich der Name ändert.

https://www.herber.de/bbs/user/172942.xlsx


Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Als Formellösung
17.10.2024 11:38:05
Charly CNX
Hi
Als Formellösung, Formel in ein neues Tabellenblatt.
Beispiel für =BOMb.BA*
=FILTER(Tray_Bookletfeeder!A2:AA500;ISTZAHL(SUCHEN("BOMb.BA";Tray_Bookletfeeder!C2:C500)))
Die anderen schaffst du selber.
Ich stelle auf offen weil du ja ne VBA Lösung suchst.
VG Charly
Nachfolgend eine mögliche Lösung...
17.10.2024 15:37:29
Case
Moin Martin, :-)

... per VBA: ;-)
https://www.herber.de/bbs/user/172956.xlsb

Den Code immer an einer Sicherungskopie testen, denn der löscht alle Tabellenblätter bis auf ein bestimmtes Blatt (Tray_Bookletfeeder) raus. ;-)

Wenn du noch Infos brauchst, melde dich. ;-)

Servus
Case
Anzeige
AW: Nachfolgend eine mögliche Lösung...
17.10.2024 15:55:26
Martin
Hi Case

wow das ist ja geil, Danke!!

wenn sich der Name ändert dann im Script dementsprechend anpassen

If wksTMP.Name > "Tray_Bookletfeeder" Then wksTMP.Delete
Next wksTMP

ame = Replace(Replace(strTMP, "=BOMb.", ""), "+", "")
Es kann alles...
17.10.2024 16:30:52
Case
Moin Martin, :-)

... angepasst werden. Man braucht nur die Rahmenbedingungen. ;-)

Servus
Case
Anzeige
AW: neue Tabelle für Kabelname
17.10.2024 15:41:35
daniel
Hi
als VBA-Makro würde es so funktionieren: 

Sub test()

Dim x1 As Range

Dim x2 As Range

Dim i As Long



Application.DisplayAlerts = False

For i = 2 To ThisWorkbook.Sheets.Count

    ThisWorkbook.Sheets(2).Delete

Next

Application.DisplayAlerts = True



With ThisWorkbook.Sheets(1)

    Set x2 = .Cells(1, 3)

    .UsedRange.Sort key1:=x2, order1:=xlAscending, Header:=xlYes

    Do

        Set x1 = x2.Offset(1, 0)

    If x1.Value = "" Then Exit Do

        Set x2 = x1.EntireColumn.Find(what:=Split(x1.Value, "+")(0) & "*", lookat:=xlWhole, searchdirection:=xlPrevious)

        ThisWorkbook.Sheets.Add after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

        ActiveSheet.Name = Split(x1.Value, "+")(0)

        .Rows(1).Copy ActiveSheet.Cells(1, 1)

        Range(x1, x2).EntireRow.Copy ActiveSheet.Cells(2, 1)

    Loop

End With

        

End Sub


wenn neue Daten kommen oder es Änderungen an der Gesamttabelle gibt, muss man das Makro nochmal laufen lassen.
Anzeige
AW: neue Tabelle für Kabelname
23.10.2024 06:34:12
Martin
Hi Daniel
kann man bei diesem Script die gelben Werte gleich aufrunden lassen?
https://www.herber.de/bbs/user/173098.xlsx

Sub Laengen()

For i = 1 To 10000
If Cells(i, 4) = "" Then
Cells(i, 4) = Cells(i - 1, 4)
End If
If Cells(i, 1) = "" Then
Exit For
End If
Next

Dim rng As Range
For Each rng In Columns(9).SpecialCells(xlCellTypeConstants, 1).Areas
With rng(1).Offset(rng.Count)
.Formula = "=Max(" & rng.Address(0, 0) & ")"
.Interior.Color = vbYellow
End With
Next

End Sub

Anzeige
AW: neue Tabelle für Kabelname noch ne Formellösung
17.10.2024 16:42:41
daniel
Hallo

eine reine Formellösung geht auch so:

1. lege ein Vorlagentabellenblatt an
Kopiere die Überschriftenzeile und füge sie in die Vorlage ein
in die Zelle A2 der Vorlage kommt diese Formel:

=FILTER(Tray_Bookletfeeder!A:AA;ISTZAHL(FINDEN("."&TEXTNACH(ZELLE("dateiname";A1);"]")&"+";Tray_Bookletfeeder!C:C));"--- nicht vorhanden ---")


2. Kopiere das Vorlagenblatt in ein neues Blatt (damit die Vorlage unverändert bleibt, solltest du die mal überschreiben ist auch nicht schlimm)
ändere jetzt den Blattnamen auf den Wert, nach dem die Spalte C in diesem Blatt gefiltert angezeigt werden soll (BA, BOU, C31 usw)

die Formel in A2 liest den Blattnamen aus und filtert dann die Ausgangstabelle nach Spalte C.

fertig ist das ganze.
du musst allerdings selber schauen, welche Blattnamenvarianten du alles brauchst und musst die Blätter anlegen.

eine Liste hierzu, welche du benötigst, kannst du mit dieser Formel im Ausgangstabellenblatt erstellen (bspw in Zelle AC2): =EINDEUTIG(TEXTVOR(TEXTNACH(C:C;".");"+"))

Gruß Daniel
Anzeige
AW: neue Tabelle für Kabelname noch ne Formellösung
18.10.2024 11:16:48
Martin
Hallo Daniel

genial, 1000 Dank!!
AW: Als Formellösung
17.10.2024 12:35:09
Martin
Hi Charly

Danke nochmal.
Geht dies auch das es die genaue Tabellenstruktur übernimmt so wie in der Gesamtliste, also mit den grünen Zeilen und die erste graue Zeile > Projekt, Beschreibung usw.?
AW: Als Formellösung
17.10.2024 14:04:55
Charly CNX
Hi
Das eine Formel keine Formate überträgt wirst du ja wissen.
Die erste Zeile kannst du doch rüber kopieren.
Die Formel dann in A2.
Die grünen Zeilen evtl. mit Bedingter Formatierung.
VG Charly
Anzeige
AW: Als Formellösung
17.10.2024 15:08:07
schauan
Hallöchen,

Formeln übernehmen keine Formate. Du müsstest schauen, ob DU das am Ziel mit bedingter Formatierung hinbekommst oder bräuchtest ein Makro ...

und die erste graue Zeile > Projekt, Beschreibung usw.?
Du willst prüfen, ob da eine graue Zeile ist, die größer als Projekt und Beschreibung ist, und die dann übernehmen? Stelle ich mir spannend vor.

Ansonsten bringt das z.B. die ersten beiden Treffer. Nur einer - dann {1} ...
 ABCDEFGHI
1werwaswie Auswahl werwaswie
2dieterho wer theaterho
3theaterho the theoriewald
4mariohol      
5thomasla      
6maseratidie      
7theoriewald      
8dieselfee      

ZelleFormel
G2=WENNFEHLER(INDEX(FILTER(A2:C10;A2:A10=E3);{1;2};{1.2.3});"war wohl nix")
Anzeige
AW: Als Formellösung
17.10.2024 15:30:52
Martin
Danke für die Nachricht.
die obere Zeile soll für jede neue Tabelle mit kopiert werden.
AW: Als Formellösung
17.10.2024 14:11:41
Martin
Vielen Dank
;

Beliebteste Forumthreads (12 Monate)

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