Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

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, 7106 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
Microsoft Office
VBA Code zum Kopieren von einzelnen Zellen in Excel (3)

Frage von SebastianL zum Thema Microsoft Office ...

Microsoft Office
gelöst Wenn Inhalt Zelle X dann bestimmte Zellen (2)

Frage von Knuefi zum Thema Microsoft Office ...

JavaScript
gelöst Rekursion statt "Tiefe" in die "Breite" (6)

Frage von it4baer zum Thema JavaScript ...

Microsoft Office
gelöst Excel: Einzelne Zeilen einer mehrzeiligen Zelle auslesen (3)

Frage von Booster07 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Windows Server
Kennwort vergessen bei Hyper vserver 2012r (12)

Frage von jensgebken zum Thema Windows Server ...

Linux Desktop
Bildschirmauflösung unter Linux festlegen (12)

Frage von itebob zum Thema Linux Desktop ...

Windows Userverwaltung
gelöst Administrator hat alle Rechte verloren (10)

Frage von mrdead zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
Gebäude mit WLAN ausstatten (9)

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