Top-Themen

Aktuelle Themen (A bis Z)

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

Mitglied: alsdorf2011

alsdorf2011 (Level 1) - Jetzt verbinden

23.05.2011, aktualisiert 18.10.2012, 4805 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.
https://www.administrator.de/forum/excel-webabfrage-per-vba-script-erwei ...

Gruß Sven
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Excel - Spaltenabschnitte in einzelne Zellen fügen - vba

gelöst Frage von AlexIOTMicrosoft Office4 Kommentare

Hallo zusammen, zunächst erkläre ich Ihnen den Aufbau meiner Tabelle: Im Tabellenblatt1: A1 ServernameB Serverowner A2 Servername1B2 A3 Servername2B3 ...

Microsoft Office

VBA Code zum Kopieren von einzelnen Zellen in Excel

Frage von SebastianLMicrosoft Office3 Kommentare

Hallo, ich möchte in einer Excel Tabelle per Button den Inhalt von einer Zelle in eine andere Zelle im ...

VB for Applications

Excel - VBA: Automatisches Setzen von Kommentaren in eine Zelle

gelöst Frage von d4shoerncheNVB for Applications3 Kommentare

Moin, eventuell könnt ihr mir helfen. Es geht um ein kleines Problem in Excel bzw. Excel / VBA. Ich ...

Microsoft Office

Einzelne Zellen aus Excel ins Word verknüpfen

gelöst Frage von pencilMicrosoft Office2 Kommentare

Guten Tag Ich möchte in einem Serienbrief bei dem einige Daten (Adresse, Anrede etc.) aus einem Excel-File gezogen werden ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 4 StundenHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Olle Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 12 StundenRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 1 TagSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 1 TagWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
OpenVPN Client Fehlermeldungen
Frage von chris84LAN, WAN, Wireless14 Kommentare

Hallo Zusammen, wir nutzen seit kurzem einen neuen Router und den OpenVPN Client. Die VPN Verbindung klappt; allerdings kommen ...

Sicherheit
Verbindliche Zustellung per E-Mail?
Frage von ahussainSicherheit14 Kommentare

Hallo allerseits, ein Kunde von mir nutzt intensiv Fax. Hauptgrund: zusammen mit einer Empfangsbestätigung ist eine verbindliche Zustellung gewährleistet. ...

Sonstige Systeme
Wie Normenkataloge im Unternehmen bereit stellen?
Frage von MuzzepuckelSonstige Systeme14 Kommentare

Hallo Kollegen, ich lese schon lange hier mit, nun mein ersrer Beitrag, bzw. Frage. :-) Wir benötigen für unsere ...

Netzwerke
Gateway in Switches, Druckern ect eintragen oder nicht
Frage von JodelknutNetzwerke12 Kommentare

Hi, bisher habe ich immer das Gateway überall wo es verlangt oder eintragbar war auch eingetragen. Mein neuer Kollege ...