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

Zellinhalt jeder dritten Zelle eine Zelle tiefer kopieren

Frage Entwicklung VB for Applications

Mitglied: Barbershopper

Barbershopper (Level 1) - Jetzt verbinden

19.10.2006, aktualisiert 27.10.2006, 6895 Aufrufe, 2 Kommentare

Hallo,
in einer Excel-Tabelle mit ca. 4500 Zeilen muss ich in den Spalten B, D und F den Zellinhalt jeder 4. Zeile jeweils eine Zeile tiefer kopieren. Die Leerzeilen habe ich zuvor mittels Makro entfernen lassen. Vielen Dank im Voraus für Hilfe und Anregungen.
Grüße
Barbershopper
Mitglied: bastla
19.10.2006 um 22:32 Uhr
Hallo Barbershopper!

Wähle die Tabelle mit den zu kopierenden Daten aus, wechsle mit Alt-F11 in den VBA-Editor und mach im Projekt-Explorer (links oben, gegebenenfalls mit Strg-R einblenden) einen Doppelklick auf die entsprechende Tabelle, um ein Codefenster zu öffnen, und kopiere die folgenden Zeilen in dieses Fenster.

01.
Sub Kopiere() 
02.
For i = 3 To 5003 Step 4 'Startzeile (derzeit 3) bitte anpassen 
03.
    Cells(i + 1, 2).Value = Cells(i, 2).Value '2 --> Spalte B 
04.
    Cells(i + 1, 4).Value = Cells(i, 4).Value '4 --> Spalte D 
05.
    Cells(i + 1, 6).Value = Cells(i, 6).Value '6 --> Spalte F 
06.
Next 
07.
End Sub
Ändere nach "For i=" die Nummer der ersten Zeile, aus der Daten kopiert werden sollen (derzeit Zeile 3). Auch die letzte Zeilennummer (derzeit 5003) solltest Du anpassen,

Danach kannst Du das Programm direkt mit F5 oder einem Klick auf das "Play"-Symbol starten.

HTH
bastla
Bitte warten ..
Mitglied: Barbershopper
27.10.2006 um 09:52 Uhr
Hallo Bastla,
das ist es!!! Vielen, vielen Dank!
Herzliche Grüße
Barbershopper
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBA - Welchen Inhalt hat eine Zelle die mit der Taste Enft geleert wird? (3)

Frage von Juckie zum Thema VB for Applications ...

Windows Server
gelöst EXE Datei per GPO auf Desktop für alle User kopieren (8)

Frage von haiflosse zum Thema Windows Server ...

Batch & Shell
gelöst Daten via Aufgabenplanung auf ein SMB Ziel kopieren (8)

Frage von eBBeL87 zum Thema Batch & Shell ...

Neue Wissensbeiträge
Google Android

Cyanogenmod alternative Downloadquelle

(2)

Tipp von Lochkartenstanzer zum Thema Google Android ...

Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(5)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Heiß diskutierte Inhalte
Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

Server
gelöst Wie erkennen, dass nur deutsche IPs Zugang zu einer Website haben? (22)

Frage von Coreknabe zum Thema Server ...

LAN, WAN, Wireless
gelöst Statische Routen mit ISC-DHCP Server für Android Devices (22)

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

Exchange Server
gelöst Migration Exchange 2007 zu 2013 - Public Folder teilweise weg (16)

Frage von Andy1987 zum Thema Exchange Server ...