Office: Namen davor statt obendrüber.

Hallo,

da ich absolut nicht weiß wie ich das kleine Problem erklären soll hab ich es als Datei angehängt. Er soll im Prinzip die Server vor jede Zeile schreiben die jeweils darüber stehen.
Danke an jeden der sich die Zeit nimmt es anzuschaun.

Liebe Grüße
Jan

PS: Excel 2003

 

Hallo NetFire,

anbei die Datei zurück mit der Formel.

Lediglich in Zelle A1 musst Du den ersten Server manuell eintragen.
Danach greift die Formel.

Gruß Pitti

 

Hallo!

Mit ein paar WEEN-Formeln ist das machbar.
siehe Anhang.

 

Ich danke euch beiden vielmals.
Das klappt schonmal super.
Kann man denn irgendwie noch die drüberstehenen Server in der 2. Spalte durch leerzeichen ersetzen oder auch entfernen ?

Liebe Grüße
NetFire

 

Ja, geht ;-)
Benutzerdefinierter Autofilter in der 2. Spalte auf "Beginnt mit ..." "Server" und dann die Zeilen weglöschen.

Gruß
Pitti

 

OK danke da hätte ich selber drauf kommen müssen :/
Ein kleine Frage hätte ich noch. Ich habe mir da jetzt ein makro draus gemacht. Dadurch das über dem ganzen auch noch was drüber steht muss ich nichtmal den ersten Server manuell einfügen :)

Also hier das Makro:

Sub Jan2()
'
' Jan2 Makro
' Test it
'
' Tastenkombination: Strg+q
'
Range("A1").Select
Cells.Replace What:="~*", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Range("A4").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[2]="""","""",IF(R[-1]C[2]="""",R[-1]C[1],R[-1]C))"
Range("A4").Select
Selection.AutoFill Destination:=Range("A4:A10000")
Range("A4:A2345").Select
Range("A2").Activate
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>*0**", Operator:=xlAnd
End Sub


So und nun meine Frage da die Dokumente immer verschiedene Längen haben wie kann ich "Selection.AutoFill Destination:=Range("A4:A10000")"
so anpassen das er wirklich nur bis zur letzten Zeile füllt ?
Ansonsten ist das makro ok so ?
Und vielleicht wärs noch ganz witzig eine wav Datei abspielen zu lassen wenn er fertig ist ;) Aber nur wenns nicht zu aufwendig ist.
So da bin ich mal gespannt wie schnell ihr bestimmt wieder eine saubere Lösung parat habt :)

Liebe Grüße
Jan

 

Hab noch ein kleines Problem.
Der Benutzerdefinierter Autofilter blendet das ungewollte zwar erfolgreich aus wenn ich es aber speichern möchte werden sie wieder mitgespeichert.
Wie kann ich die Zeilen ganz löschen oder das speichern verhindern ?

Liebe Grüße
Jan

 

Hallo!

Verwende doch statt des Autofilters den Spezialfilter.
Auch diesen kannst du per Makrorekorder aufzeichnen.

 

Weiß grad nicht wie das mit dem Spezielfilter funktionieren sollte.
Und ganz entfernen wäre auch fatal weil dann die Formel keine Werte mehr hat. Ich habs jetzt einfach markieren lassen und in ein neues Tabellenblatt reinkopiert und dann nimmt er die ausgeblendeten(nicht kopierten) Zeilen nicht mit. Funktioniert auch prima.

Schatzi kannst du zu dem Makrofragen eventuell noch etwas sagen ?

Liebe Grüße
jan

 

Hallo!

Spontan fällt mir etwas wie
Intersect(UsedRange, Columns(1))
oder
Range("A65536").End(xlUp)
ein