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

Microsoft Office
gelöst Zellinhalt in Excel-Kopfzeile übernehmen (2)

Frage von Kyrinja zum Thema Microsoft Office ...

Neue Wissensbeiträge
Viren und Trojaner

FinFisher: Internetprovider schieben Spitzelopfern Malware unter

(1)

Information von kaiand1 zum Thema Viren und Trojaner ...

Humor (lol)

Wo ist der Fehler auf dem Bild?

(17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Update

Offenbar erneutes MS-Update mit Fehlerschleife (2012 R2)

Information von VGem-e zum Thema Windows Update ...

Heiß diskutierte Inhalte
Lizenzierung
Programm soll in verschiedenen Versionen lizenziert sein (20)

Frage von Yanmai zum Thema Lizenzierung ...

Humor (lol)
Wo ist der Fehler auf dem Bild? (17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Userverwaltung
Ordner-Rechte für Dom.Admin einschränken? (13)

Frage von kilobyte zum Thema Windows Userverwaltung ...