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"

Frage Microsoft Microsoft Office

GELÖST

Per VBA URL aus einzelne Zellen zusammen setzen

Mitglied: alsdorf2011

alsdorf2011 (Level 1) - Jetzt verbinden

23.05.2011, aktualisiert 18.10.2012, 4784 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 ..
Ä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
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 2 TagenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 2 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 2 TagenSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 2 TagenSicherheit10 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
E-Mail
Erfahrungen mit hMailServer gesucht
Frage von it-fraggleE-Mail10 Kommentare

Hallo, meine neue Stelle möchte einen eigenen Mailserver. Ich als Linuxkind war direkt geistig mit Postfix dabei. Leider wollen ...

Entwicklung
VBS: alle PDF-Dateien in einem Ordner gleichzeitig öffnen
gelöst Frage von JuweeeEntwicklung9 Kommentare

Hallo, ich habe in deiner Ordnerstruktur (.\Tagesberichte\xx.18\) mehrere dynamische PDF-Formulare (mit LCD erstellt). Die Berichtsformulare sind im Layout alle ...

Firewall
Penetrationstester-Labor - Firewalls
Frage von Oli-nuxFirewall9 Kommentare

Mich würde interessieren warum man beim Einrichten eines Penetrationstester-Labor (VMs) die Firewall der Systeme deaktivieren soll? Hat das nur ...

Netzwerkgrundlagen
IPv6 Inter-VLAN Routing
gelöst Frage von clSchakNetzwerkgrundlagen8 Kommentare

Hi ich befasse mich gerade mit der Implementierung von IPv6 was bisher (in einem VLAN) korrekt funktioniert inkl. DNS ...