Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Spalten auslesen"
Vorkommen von Zahlenreihen in Spalten Funktion ANZAHL2 ohne ausgeblendete Spalten
Spaltenbreite anpassen Spalten einer Mehrbereichsauswahl ausblenden.
Spaltennamen bestimmen Spalten/Zeilen aus- und einblenden
Zeilen und Spalten über ein Drehfeld ein- und ausblenden In einem Dialog ausgewählte Spalten drucken
Spalten bedingt summieren und Zellen formatieren Abfrage der markierten Spalten