Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
Kommentar vom Moderator Biber am 08.09.2011 um 21:35:40 Uhr
Verschoben von "Linux"-"Office" nach "Windows"-"Office"-"Excel"
GELÖST

Per VBA URL aus einzelne Zellen zusammen setzen

Frage Microsoft Microsoft Office

Mitglied: alsdorf2011

alsdorf2011 (Level 1) - Jetzt verbinden

23.05.2011, aktualisiert 18.10.2012, 4710 Aufrufe, 4 Kommentare

Ich habe eine Tabelle die Wie folgt aufgebaut ist

Spalten A1 und darunter liegende Zeilen (Leerstelle ist immer eine neue Spalte) ( Fomatierungsproblem hier im Forum)

deehqap081vwdum c20309 20309 40525 75596 88900
deehqap071vwdum c20619 10116 10619 20619 21656 21696 52116
deehqap071vwdum c21082 21082 21885
deehqap081vwdum c21232 21232 21233 21234 21235 21236 21238 21243
deehqap071vwdum c21239 21239 21240
deehqap071vwdum c22051 21072 21073 21074 21077 22051 22178
deehqap071vwdum c26573 20729 21518 26573 71307 71323 71340
deehqap071vwdum c26603 21202 25445 25658 26603
deehqap071vwdum c30899 30899 74004
deehqap081vwdum c32590 32590
deehqap071vwdum c33022 32999 33022 33081 33120 41483 41891
deehqap081vwdum c33804 21242 22331 33804
deehqap081vwdum c44989 20664 20907 21220 44954 44989 45021 50938 88781 88803
deehqap081vwdum c50041 45187 45209 50041
deehqap081vwdum c72893 20519 20914 30597 30651 32573 42595 42625 53635 60682 60691
deehqap081vwdum c75621 75621 75639 84000 84001
deehqap071vwdum c99949 99949
deehqap071vwdum c99959 99959

Nun möchte ich in einem weiteren Tabellenblatt daraus eine URL zusammen setzen.
Zelle A1
="http://TESTURL;&Zusammenfassung!A1&;.;&Zusam ..."

Hier ist es aber so, dass ich möchte dass per Script die Werte ab Spalte B und den Spalten C; D;E;F;.... abgefragt und zusammen gesetzt werden.
d.h. Greife Zelle aus Spalte A & B ab und erzeuge immer eine neue URL aus den Werten C;D;E;F;G bis kein Wert mehr gefunden wird ( immer nur ein Wert und keine Kombination aus allen Spalten)
Wie zu ersehen sind die Spalten unterschiedlich gefüllt. Fix sind immer die Spalten A & B , ab Spalte C ändern sich die Werte immer.
Mitglied: colinardo
23.05.2011 um 12:35 Uhr
hab hier mal was in VBA zusammengebastelt was Dir weiterhelfen sollte:
Ausgabe der URL findet in Zeile 11 statt...
01.
Sub generateURLs() 
02.
    Dim cell As Range 
03.
    active_row = 1 
04.
    output_row = 1 
05.
    Do 
06.
        Set cell = Worksheets(1).Cells(active_row, 1) 
07.
        If cell.Value <> "" Then 
08.
            active_col = 3 
09.
            Do 
10.
                If cell.Offset(0, active_col - 1).Value <> "" Then 
11.
                    Worksheets(2).Cells(output_row, 1).Value = "http://TESTURL&quot;&amp;" & cell.Value & "." & cell.Offset(0, 1).Value & "&d=" & cell.Offset(0, active_col - 1).Value 
12.
                    output_row = output_row + 1 
13.
                Else 
14.
                    Exit Do 
15.
                End If 
16.
                active_col = active_col + 1 
17.
            Loop 
18.
             
19.
        Else 
20.
            Exit Do 
21.
        End If 
22.
        active_row = active_row + 1 
23.
    Loop 
24.
End Sub 
25.
 
Bitte warten ..
Mitglied: alsdorf2011
23.05.2011 um 13:36 Uhr
Danke für das Script und für die schnelle Hilfe.
eine Frage hab ich da noch. Wo kann ich eintragen, dass er sich die quelle von einem bestimmten Tabellenblatt zieht und auch die Ausgabe auf ein bestimmtes Tabellenblatt durchführt???
Bitte warten ..
Mitglied: colinardo
23.05.2011 um 13:40 Uhr
in Zeile 06. kannst du das Worksheets(1) z.B. durch Worksheets("Quelle") ersetzen
und in Zeile 11. z.B. in Worksheets("Ziel")
Du kannst dort entweder die Indexnummer des Tabellenblatts verwenden (dann ohne Anführungszeichen) oder den tatsächlichen Namen des Blattes (mit Anführungszeichen)

Grüße Uwe
Bitte warten ..
Mitglied: alsdorf2011
23.05.2011, aktualisiert 18.10.2012
Vielen lieben Dank Uwe
Damit kann ich erstmal weiterarbeiten. bzw auf eine Rückmeldung zum eingentlichen Problem warten.
Vielleicht weist du ja wo ich was noch ändern muss. Siehe Beitrag:

EXCEL Webabfrage per VBA Script erweitern.
http://www.administrator.de/forum/excel-webabfrage-per-vba-script-erwei ...

Gruß Sven
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
VB for Applications
gelöst Excel VBA Eine oder mehrere Zellen Verschieben (2)

Frage von batchnewbie zum Thema VB for Applications ...

VB for Applications
gelöst VBA Zellen dublizieren plus Wenn Dann Funktion (4)

Frage von grasihuepfer zum Thema VB for Applications ...

VB for Applications
gelöst Wie mittels VBA beim Import von CSV dateien das Format aller Zellen auf "Zahl" ändern? (2)

Frage von Glibber4 zum Thema VB for Applications ...

Grafikkarten & Monitore
AMD GPU zusammen mit Intel CPU (3)

Frage von KungLao zum Thema Grafikkarten & Monitore ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (22)

Frage von patz223 zum Thema Windows Userverwaltung ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (19)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...