Spalten auslesen

Bild

Betrifft: Spalten auslesen
von: Gerhard
Geschrieben am: 15.02.2005 14:38:30
Hallo
Wie kann ich aus allen Arbeitsblättern, die immer beginnen mit KW05_CH16, KW06_CH17, KW07_CH18, KW07_CH19 usw. immer im Bereich von T7-T15 die Seriennummern in ein Blatt "Seriennummern" in eine Zelle getrennt mit einem Komma ab Spalte B5 übertragen?
d.h.
ab Spalte A5 die Blattnamen und ab Spalte B5 die Seriennummern/Blatt in eine Zelle diese getrennt mit einem Komma
Vielen Dank
Gerhard

Bild

Betrifft: AW: Spalten auslesen
von: Beni
Geschrieben am: 15.02.2005 16:29:15
Hallo Gerhard,
Gruss Beni

Sub Gerhard()
Dim i, sh As Integer
For sh = 1 To Sheets.Count
If Left(Sheets(sh).Name, 2) = "KW" Then
With Sheets(sh)
    For i = 5 To 15
    lz = Sheets("Seriennummern").Cells(Rows.Count, 1).End(xlUp).Row + 1
    If lz < 5 Then lz = 5
    Sheets("Seriennummern").Cells(lz, 1) = Sheets(sh).Name
    Sheets("Seriennummern").Cells(lz, 2) = .Cells(i, 20) & "," & Sheets(sh).Name
    Next i
End With
End If
Next sh
End Sub

Bild

Betrifft: AW: Spalten auslesen
von: Gerhard
Geschrieben am: 15.02.2005 18:40:32
Hallo
funtioniert leider nicht!
1. die Seriennummer/Blatt im Bereich T7-T15 werden in der Gesamtübersicht in Spalte B nicht richtig dargestellt z.B ,KW01 oder 0112,KW01 oder 114,KW02
Ab der Zelle B5 soll innerhalb einer Zelle alle vorkommenden Nummern im Bereich von T7-T15 getrennt mit einem Komma übertragen werden. Es kann auch vorkommen, daß in der Bereich T7-T15 Leerzellen vorkommen!
Beispiel;
Im ersten Blatt mit dem Nammen "KW05_CH13" sind im Bereich T7-T15 folgende Seriennummern enthalten:
T7(00100)
T8(Leer)
T9(Leer)
T10(00101)
T11(00102)
T12(Leer)
T13(00103)
T14(Leer)
T15(00104)
dann soll in der Gesamtübersicht "Seriennummern" ab Zell A5 der Name des Blattes also KW05_CH13 und in Zelle B5 die Nummer: 00100, 00101, 00102, 00103, 00104
in Zelle A6 der Blattname des nächsten Blattes und in Zelle B6 entsprechend die Nummern wieder im Bereich von T7-T15
usw.
Gruß
Gerhard
Bild

Betrifft: AW: Spalten auslesen
von: Beni
Geschrieben am: 16.02.2005 09:02:11
Hallo Gerhard,
Gruss Beni


Sub Gerhard()
Dim i, sh As Integer
Dim arr As String
For sh = 1 To Sheets.Count
arr = ""
If Left(Sheets(sh).Name, 2) = "KW" Then
With Sheets(sh)
lz = Sheets("Seriennummern").Cells(Rows.Count, 1).End(xlUp).Row + 1
If lz < 5 Then lz = 5
Sheets("Seriennummern").Cells(lz, 1) = Sheets(sh).Name
    For i = 5 To 15
    If .Cells(i, 20) <> "" Then
    If arr = "" Then
    arr = .Cells(i, 20)
    Else
    arr = arr & ", " & .Cells(i, 20)
    End If
    End If
    Next i
    Sheets("Seriennummern").Cells(lz, 2) = arr
End With
End If
Next sh
End Sub

Bild

Betrifft: AW: Spalten auslesen
von: Gerhard
Geschrieben am: 16.02.2005 16:30:12
Hallo Beni
funktioniert super...
Du hast mir sehr geholfen! Vielen Dank
Gruß
Gerhard
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Spalten auslesen"