Microsoft Excel

Herbers Excel/VBA-Archiv

Beim "Kopieren" der Zellen Inhalte ändern

Betrifft: Beim "Kopieren" der Zellen Inhalte ändern von: seko
Geschrieben am: 02.10.2007 16:16:03

Hi :) !!!

Hier etwas ausführlich was ich eigentlich vorhabe. Ob es überhaupt möglich ist :

Wenn man zum Beispiel eine Folge von Zahlen in untereinander liegenden Zellen hat - 1,2,3,
diese markiert und dann an der Ecke nach unten zieht, rechnet Excel ja von selbst weiter - 4,5,6

Ist es auch möglich, das Excel auch so eine Logik weiterführt? :

<...a href="http://www.webseite.de/ordner/256.dat">256..<./a>

<...a href="http://www.webseite.de/ordner/257.dat">257..<./a>

<...a href="http://www.webseite.de/ordner/258.dat">258..<./a>

<...a href="http://www.webseite.de/ordner/259.dat">259..<./a>

...
...
...

Ich habe auf dem Server etwa 1000 Dateien, von 1-1000 und müsste für diese Downloadlinks generieren.
Jetzt jeden dementsprechend per Hand zu verändern ist Selbstmord :))

Hat vielleicht jemand eine Idee?
Ist es überhaupt mt VBA/Excel möglich?

Vielen Dank für Eure Hilfe

Gruß aus Hamburg
SeKo

  

Betrifft: AW: Beim "Kopieren" der Zellen Inhalte ändern von: Renee
Geschrieben am: 02.10.2007 16:26:29

Hallo Seko,

über ein(ige) Hilfsspalten ist das doch leicht zu bewerkstelligen

A1 = 1    A2 = A1+1
B1 ="<...a href="http://www.webseite.de/ordner/" & Text(A1;"000") & ""> & Text(A1;"000") & "..<./a>"


Formeln runterkopieren - Spalte mit Inhalte kopieren dorthin wo du sie willst.

GreetZ Renee


  

Betrifft: AW: Beim "Kopieren" der Zellen Inhalte ändern von: fcs
Geschrieben am: 02.10.2007 16:46:04

Hallo SeKo,

hier Makro-Lösung und Formel-Lösung

für die Formellösung in Spalte A die Nummern eintragen in Spalte B dann die Formel

= "<...a href=""http://www.webseite.de/ordner/" &TEXT(A1; "0") & ".dat"">" 
& TEXT(A1; "0") & "..<./a>"


in Zelle B1 einfügen und nach unten kopieren.

Das Makro in ein Modul kopieren und die Start und Endnummer eintragen. Dann von einem leeren Blatt aus das Makro starten.

Falls die Link-Nummern mit führenden Nullen geschrieben werdne müssen, dann für die TEXT-Funktion in der Formel bzw. im Makro die Format-Anweisung von "0" in "000" ändern.

Gruß
Franz

Sub aatest()
  'Text generieren
  'Textergebnis wird in Spalte 1 des aktiven Blatts eingetragen
  Dim start&, Ende&, Zeile&, text1$, text2$, text3$, Nummer&
  Dim wks
  Set wks = ActiveSheet
  start = 3
  Ende = 7
  Zeile = 1 'Startzeile für das Eintragen der Texte
  Nummer = start
  Do Until Nummer > Ende
    text1 = "<...a href=""http://www.webseite.de/ordner/"
    text2 = ".dat"">"
    text3 = "..<./a>"
    
    wks.Cells(Zeile, 1) = text1 & Format(Nummer, "0") & text2 & Format(Nummer, "0") & text3
    Zeile = Zeile + 1
    Nummer = Nummer + 1
  Loop
End Sub




  

Betrifft: SUPER. DANKE !!! von: seko
Geschrieben am: 02.10.2007 16:52:08

Ich kann nicht aufhören, euch zu loben.

Unglaublich. Und wiederum traurig, dass ich dafür zu dumm bin.

Gruß und danke euch beiden vielemals
SeKo


 

Beiträge aus den Excel-Beispielen zum Thema "Beim "Kopieren" der Zellen Inhalte ändern"