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

gelöst Random.Zeile und Spalte in eine neue Zelle kopieren mit VBS in Excel 2007

Mitglied: FaBMiN

FaBMiN (Level 2) - Jetzt verbinden

08.12.2008, aktualisiert 14:40 Uhr, 4611 Aufrufe, 4 Kommentare

Hi alle zusammen
ich hab mal wieder eine kleine, und für geübte, warscheinlich simple Aufgabe zu lösen.

Situation
Ich habe eine Spalte 'A' mit bspw. einer fortlaufenden Nummer 'a' und eine Spalte 'B' mit einer fortlaufenden Nummer 'b'.

Ergebnis
Ich möchte eine Spalte 'C', welche sich aus A und B folgendermassen zusammensetzt:
A1B1, A1B2, A1B3, ..., A2B1, A2B2, A2B3, ..., AnBn

Weg
Ich nehme mal an es wird über zwei geschaltete for-Schleifen laufen - die äußere zählt von A1 bis An und die innere zählt von B1 bis Bn.
Das Ergebnis AaBb von A1B1 bis AnBn wird dann jeweils in eine Spalte C oder ein neues Tabellenblatt kopiert, allerdings in jeweils eine Zelle pro Ergebnis (bspw. C1=A1B1) - ich nehme mal an per 'print(C1)=A1+B1' ?



Wie Ihr seht verstehe ich relativ wenig von VB und bitte daher um Eure Hilfe.
Ein vollständiges Skript wär natürlich toll

Danke und Gruß
Fab
Mitglied: bastla
08.12.2008 um 13:20 Uhr
Hallo FaBMiN!

Etwa so:
01.
Sub Combine() 
02.
RA = 1 
03.
RC = 1 
04.
Do While Cells(RA, 1).Value <> "" 
05.
    RB = 1 
06.
    Do While Cells(RB, 2).Value <> "" 
07.
        Cells(RC, 3).Value = Cells(RA, 1).Value & Cells(RB, 2).Value 
08.
        RB = RB + 1 
09.
        RC = RC + 1 
10.
    Loop 
11.
    RA = RA + 1 
12.
Loop 
13.
End Sub
Da Du Excel2007 verwendest, habe ich die Prüfung auf einen Überlauf der Spalte C eingespart - sollten es doch mehr als eine Million Kombinationen werden, müsstest Du das berücksichtigen und zB in Spalte D weiter machen ...

Grüße
bastla
Bitte warten ..
Mitglied: FaBMiN
08.12.2008 um 13:27 Uhr
Hey bastla --> baschdlah ;)

vielen Dank!
Ich werde es gleich mal ausprobieren!
Bitte warten ..
Mitglied: FaBMiN
08.12.2008 um 14:05 Uhr
ähhhm... Hi nochmal
nun haben wir tatsächlich das Problem, dass es mehr als eine Million Datensatze sind :s

Haste da für mich vielleicht noch ne Abfrage? Es sind nämlich ein bissl mehr als 3Mio
Wär super!

Danke
Bitte warten ..
Mitglied: bastla
08.12.2008 um 14:40 Uhr
Hallo FaBMiN!

Na ja, die paar Zeilen gehen auch noch :
01.
Sub Combine() 
02.
RA = 1 
03.
RC = 1 
04.
CC = 3 'Ergebnisse ab Spalte C eintragen 
05.
RMax = 1048576 'höchste zu verwendende Zeilennummer 
06.
Do While Cells(RA, 1).Value <> "" 
07.
    RB = 1 
08.
    Do While Cells(RB, 2).Value <> "" 
09.
        Cells(RC, CC).Value = Cells(RA, 1).Value & Cells(RB, 2).Value 
10.
        RB = RB + 1 
11.
        RC = RC + 1 
12.
        If RC > RMax Then 
13.
            RC = 1 
14.
            CC = CC + 1 
15.
        End If 
16.
    Loop 
17.
    RA = RA + 1 
18.
Loop 
19.
End Sub
Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Zelle suchen - nebenstehende Zellen in ein neues Blatt kopieren

Frage von GarantBerlinMicrosoft Office2 Kommentare

Hallo liebe Gemeinde, ich bin ziemlicher Neuling und bräuchte aber mal dringend euren Rat, folgendes: wenn in der Zelle ...

Microsoft Office

Excel 2007 aus Zellen Diagramm erstellen

Frage von 103148Microsoft Office4 Kommentare

Hallo, ich stehe wohl auf dem "Schlauch". Ich habe ca 250 Einträge in einer Zellenreihe also vertikal. Diese möchte ...

Microsoft Office

Excel mehrere Spalten durchsuchen und in einer neuen Spalte ordnen

gelöst Frage von Wolf6660Microsoft Office2 Kommentare

Hi, ich habe folgendes Problem: ich habe eine Liste mit mehreren Spalten in denen der Name eines Benutzers aufgelistet ...

Microsoft Office

Excel Zellen aus zwei Spalten in separate Textdatei exportieren

gelöst Frage von Noah15Microsoft Office5 Kommentare

Hallo, es geht um folgendes Problem: Ich habe eine Excel-Tabelle mit knapp 200 Zeilen. Aus der ersten Zeile soll ...

Neue Wissensbeiträge
Sicherheit

MikroTik-Router patchen, Schwachstelle wird ausgenutzt

Information von kgborn vor 19 StundenSicherheit

Am 23. April 2018 wurde von Mikrotik ein Security Advisory herausgegeben, welches auf eine Schwachstelle im RouterOS hinwies. Mikrotik ...

Windows 10

Microcode-Updates KB4090007, KB4091663, KB4091664, KB4091666 für Windows 10

Information von kgborn vor 1 TagWindows 101 Kommentar

Kurze Information für Administratoren von Windows 10-Systemen, die mit neueren Intel CPUs laufen. Microsoft hat zum 23. April 2018 ...

iOS
Updates für Iphone und Co
Information von sabines vor 1 TagiOS

Gestern abend ist iOS 11.3.1 erschienen, ein kleineres Update, dass einige Lücken schließt und "Lahmlegen" nach einem Display Tausch ...

Windows 7

Windows 7 - Server 2008 R2: Exploit für Total Meltdown verfügbar

Information von kgborn vor 2 TagenWindows 7

Kleine Information für Administratoren, die für die Updates von Windows 7 SP1 und Windows Server 2008 R2 SP1 verantwortlich ...

Heiß diskutierte Inhalte
Batch & Shell
Powershell: Im AD nach Rechnern mit bestimmten IP-Adressen suchen
gelöst Frage von Raven42Batch & Shell36 Kommentare

Hallo zusammen, ich suche nach einer Möglichkeit nach Computern im AD zu suchen , deren IP-Adresse mit 10.11.12. beginnt. ...

C und C++
Frage1 C Programmierung-Makefile Frage2 PHP-Programmierung HTTP-Fehler 404
Frage von KatalinaC und C++34 Kommentare

Hallo, ich habe 2 Fragen, die nichts miteinander zu tun haben aber mit denen ich mich gerade beschäftige: 1. ...

Windows Server
Alten DC entfernen
Frage von smartinoWindows Server24 Kommentare

Hallo zusammen, ich habe hier eine Umgebung übernommen und erstmal einen DCDIAG gemacht. Dabei fällt auf, daß eine ganze ...

Ausbildung
Wie gelingt ein guter Einstieg in die FiSi-Ausbildung? (Umschulung)
Frage von SiAnKoAusbildung22 Kommentare

Schönen guten Tag, ich bin SiAnKo und habe seit dem 1.04.2018 eine Umschulung als FiSi angefangen. Ich möchte natürlich ...