Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.08.2008 23:00:06 |
weserich |
|
|
|
12.08.2008 14:53:32 |
Holger |
|
|
|
13.08.2008 18:09:37 |
Weserich |
|
|
|
14.08.2008 10:31:06 |
Holger |
|
|
|
14.08.2008 10:33:13 |
Holger |
|
|
|
14.08.2008 10:35:20 |
Holger |
|
|
|
14.08.2008 10:37:20 |
Holger |
|
|
Aw:Aw:Aw:Aw:Aw:Aw:Aw:neue Tabelle, Teil 2 |
14.08.2008 10:38:51 |
Holger |
|
|
Von:
Holger |
Datum:
14.08.2008 10:38:51 |
Views:
876 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:Aw:Aw:neue Tabelle, Teil 2 |
Teil 2:
d = 0
For i = 1 To lz
If b(i - 1) <> b(i) Then
d = d + 1
ReDim Preserve c(d)
c(d) = b(i)
End If
Next i
For i = 1 To d
lz2 = Worksheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
If lz2 <> 1 Then lz2 = lz2 + 1
Worksheets("Tabelle2").Cells(lz2, 1) = c(i)
For j = 1 To lz
If Cells(j, 1) = c(i) Then
lz2 = lz2 + 1
Worksheets("Tabelle2").Cells(lz2, 1) = Cells(j, 3)
End If
Next j
Next i
Worksheets("Tabelle2").Activate
End Sub
Hoffentlich klappt es diesmal!
Holger
Holger schrieb am 14.08.2008 10:37:20:
Holger schrieb am 14.08.2008 10:35:20:
wieder nichts! Noch einmal
Teil 1 zum Dritten:
Sub Test_Kostenstellen()
Dim b(), c()
a = ActiveSheet.Name
gef = False
For Each ws In Worksheets
If "Tabelle2" = ws.Name Then
gef = True
Worksheets("Tabelle2").Cells.Clear
Exit For
End If
Next
If gef = False Then
Set NewSheet = Worksheets.Add
ActiveSheet.Name = "Tabelle2"
End If
Worksheets(a).Activate
lz = Cells(Rows.Count, 1).End(xlUp).Row
ReDim b(lz), c(0)
For i = 1 To lz
b(i) = Cells(i, 1)
Next i
For k = 0 To lz - 1
For i = k + 1 To lz
If b(i) < b(k) Then x = b(i): b(i) = b(k): b(k) = x
Next i
Next k |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.08.2008 23:00:06 |
weserich |
|
|
|
12.08.2008 14:53:32 |
Holger |
|
|
|
13.08.2008 18:09:37 |
Weserich |
|
|
|
14.08.2008 10:31:06 |
Holger |
|
|
|
14.08.2008 10:33:13 |
Holger |
|
|
|
14.08.2008 10:35:20 |
Holger |
|
|
|
14.08.2008 10:37:20 |
Holger |
|
|
Aw:Aw:Aw:Aw:Aw:Aw:Aw:neue Tabelle, Teil 2 |
14.08.2008 10:38:51 |
Holger |
|
|