Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen

Zellen neben best. Wert verschieben | Herbers Excel-Forum


Betrifft: Zellen neben best. Wert verschieben von: Howard
Geschrieben am: 22.01.2010 21:13:31

hi,
ich habe viele listen von kartennamen mit id's, wie im beispiel bild ersichtlich will ich die den zelleneintrag neben "Name" eine zeile hoch und eine zeile nach rechts oder besser gesagt neben die id nummer (zwei zellen neben "id")
und das bei allen.. (sind bis zu 5000 eintraege!!)

bin fuer eure Hilfe sehr dankbar da es mir sehr viel arbeit erleichtern würde!! =)

howard

screenshot
http://i.imagehost.org/0082/exc-bsp.jpg

excel-datei
https://www.herber.de/bbs/user/67431.xlsx

  

Betrifft: AW: Zellen neben best. Wert verschieben von: Hajo_Zi
Geschrieben am: 22.01.2010 21:19:33

Halo Howard,

kannst Du auch mitteilen was Du möchtest?

GrußformelHomepage


  

Betrifft: AW: Zellen neben best. Wert verschieben von: Howard
Geschrieben am: 22.01.2010 21:32:24

hi
tut mir leid, einfach gesagt soll immer der zellenwert neben name (wenn "name" in a2 dann b2 verschieben)
zwei zellen neben die obere id verschoben werden (wenn "id" a1 dann b2 nach c1 verschieben)

ich habe jetzt eine vorher nachher datei hoch geladen, hoffe das es dadurch ersichtlich wird.
(vorher /nachher jeweils ein sheet))
https://www.herber.de/bbs/user/67432.xlsx

howard

ps danke für die schnelle antwort! =)


  

Betrifft: AW: Zellen neben best. Wert verschieben von: Daniel
Geschrieben am: 22.01.2010 21:47:38

Hi
wenn der Aufbau immer gleich ist und id vor name kommt, dann so:

Sub test()
Dim Zelle As Range
With Columns(1)
    .Replace "name", True, xlWhole
    With .SpecialCells(xlCellTypeConstants, 4)
        .Offset(-1, 2).Formula = "=R[1]C[-1]"
        Columns(3).Formula = Columns(3).Value
        '.Offset(0, 1).ClearContents
        .Value = "name"
    End With
End With
End Sub

Gruß, Daniel

ps die Zeile zum löschen der alten Daten habe ich erstmal auskommentiert, das kannst du bei bedarf ja einfügen.

kleiner Tip am Rande: das Einstellen der Datei als .xls erhöht den Kreis der potentiellen Helfer, da noch nicht allse Excel 2007 haben.


  

Betrifft: AW: Zellen neben best. Wert verschieben von: Howard
Geschrieben am: 22.01.2010 22:12:32

hi danke für deine schnelle hilfe!!! Es hat mir sehr geholfen da, wie es scheint, nur selten ausnahmen vorkommen(id unter dem namen), die ich manuell verwalten kann.

herzlichst
howard

ps. ebenso dank für deinen tip, werde ihn in zukunft anwenden =)


Beiträge aus den Excel-Beispielen zum Thema "Zellen neben best. Wert verschieben"