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, 7015 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 ...

VB for Applications
gelöst Zeile anhand Zellinhalt formatieren (2)

Frage von Tollgemacht zum Thema VB for Applications ...

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

Frage von Booster07 zum Thema Microsoft Office ...

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 ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 im Unternehmen? (28)

Frage von zorlayan zum Thema Windows 10 ...

LAN, WAN, Wireless
Ping u. DNS geht am Rechner nicht mehr (21)

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

LAN, WAN, Wireless
CNC Maschinen verlieren Netzwerkverbindung (kurioser Fehler) (17)

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