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

Kleines anfänger Makro in Excel zum einfügen eines Zeichens in jede n-te Zeile

Frage Microsoft Microsoft Office

Mitglied: Belloci

Belloci (Level 2) - Jetzt verbinden

14.11.2012 um 20:37 Uhr, 2895 Aufrufe, 2 Kommentare

Guten Abend,

langsam werde ich noch zum allrounder...

... Ich benötige ein VB-Makro. Ich habe viel probiert über Makro aufnehmen um dann zu "prutschen" aber es will mir nicht gelingen..

ich brauche ein leichtes makro, dass in jede 5te Zeile (angefangen also von A1, sodass der erste Wert in A5 geschrieben wird) ein "-" (Bindestrich ohne"") einfügt...

die Sachen aus dem Netz sind mir zu kompliziert als das ich diese jemals verstehen könnte

das war meine erste Idee, die ich mit den Makro aufzeichnen "erarbeitet" hatte:

For I = 5 To 1000 Step 5 + 1
ActiveCell.FormulaR1C1 = "-"
Range("A5" + I).Select
Next I

geeeeht nicht :/
Mitglied: bastla
14.11.2012, aktualisiert um 21:12 Uhr
Hallo Belloci!

Wenn Du "eintragen" und nicht "einfügen" meinst, dann sollte das so gehen:
01.
For i = 5 To 1000 Step 5 
02.
    Cells(i, "A").Value = "-" 
03.
Next i
Falls aber gemeint sein sollte, dass in eine bestehende Formel ein "-" (gleich nach dem "=") eingefügt werden soll, dann:
01.
For i = 5 To 1000 Step 5 
02.
    Formel = Cells(i, "A").Formula 
03.
    If Left(Formel, 1) = "=" Then Cells(i, "A").Formula = "=-" & Mid(Formel, 2) 
04.
Next i
Grüße
bastla
Bitte warten ..
Mitglied: Belloci
15.11.2012 um 07:27 Uhr
Du hast mir den Tag gerettet, besten Dank hat alles funktioniert!!

Bitte warten ..
Ähnliche Inhalte
Microsoft Office
"Microsoft Excel kann die Daten nicht einfügen" (2)

Frage von arik12 zum Thema Microsoft Office ...

VB for Applications
gelöst Gruppierung von Zeilen mit einer bestimmten Farbe mit Makro (5)

Frage von Mimindt 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? (26)

Frage von zorlayan zum Thema Windows 10 ...

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

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

Festplatten, SSD, Raid
Raid 1 2 SSD mit Windows Server 2016 (17)

Frage von jaywee zum Thema Festplatten, SSD, Raid ...