Anzeige
Archiv - Navigation
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makros in Excel

Makros in Excel
19.05.2005 15:53:15
torsten.luksnat@db.com
Hallo zusammen,
ich benötige dringend einen Tip, wie ich beim programmieren von Makros folgendes Problem löse. Ich habe einer Schaltfläche in einer eigenen Tabelle ein Makro zugewiesen, welches automatisch beim betätigen der Schaltfläche auf einer weiteren Tabelle eine Zeile in einer Datei befüllt. Ich würde gerne wissen mit welchem Befehl ich die Excel dazu bringen beim wiederholten betätigen der Taste nicht die gleiche Zeile zu überschreiben, sondern die nächste nicht befüllte Spalte.
Vielen Dank

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makros in Excel
19.05.2005 16:00:17
Hajo_Zi
Hallo Torsten,
wie wäre es, wenn Du uns DEin Makro zeigst! Ich lehne es ab über das Internet auf fremde Rechner zu schauen.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.



"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
AW: Makros in Excel
19.05.2005 16:08:25
torsten.luksnat@db.com
Hallo mein makro sieht wie folgt aus.

Sub adva420377()
' adva420377 Makro
' Makro am 19.05.2005 von ASN937 aufgezeichnet
Sheets("Gesamtreporting").Select
Range("A8").Select
ActiveCell.FormulaR1C1 = "=R[-3]C[3]"
Range("E8").Select
ActiveCell.FormulaR1C1 = "adVA OPTIONSRECHTE"
Range("F8").Select
ActiveCell.FormulaR1C1 = "420377"
Range("J8").Select
ActiveCell.FormulaR1C1 = "3.66"
Range("I8").Select
End Sub

vielen dank
AW: Makros in Excel
19.05.2005 16:13:23
Hajo_Zi
Hallo Torsten,
auf select usw. kann zu 99% in VBA verzichtet werden.
Option Explicit

Sub adva420377()
' adva420377 Makro
' Makro am 19.05.2005 von ASN937 aufgezeichnet
Dim LoLetzte As Long
With Sheets("Gesamtreporting")
LoLetzte = IIf(IsEmpty(.Range("A65536")), .Range("A65536").End(xlUp).Row, 65536)
Cells(LoLetzte + 1, 1).FormulaR1C1 = "=R[-3]C[3]"
Cells(LoLetzte, 5) = "adVA OPTIONSRECHTE"
Cells(LoLetzte + 1, 6) = 420377
Cells(LoLetzte + 1, 10) = "3.66"
End With
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
AW: Makros in Excel
19.05.2005 16:40:39
torsten.luksnat@db.com
Hallo hajo,
leider funktioniert es nicht, aber der makro war auch falsch, hier der korrekte.
Vielen Dank für die Mühe

Sub Makro8()
' Makro8 Makro
' Makro am 19.05.2005 von ASN937 aufgezeichnet
Sheets("Gesamtreporting").Select
ActiveCell.Offset(-14, -2).Range("A1").Select
ActiveCell.FormulaR1C1 = "=R[-3]C[3]"
ActiveCell.Offset(0, 4).Range("A1").Select
ActiveCell.FormulaR1C1 = "ADVA OPTICAL AG"
ActiveCell.Offset(0, 5).Range("A1").Select
ActiveCell.FormulaR1C1 = "3.66"
ActiveCell.Offset(8, -1).Range("A1").Select
End Sub

AW: Makros in Excel
19.05.2005 16:12:14
marko_ti
Hallo,
probier das mal, es schreibt jeweils in die nächste freie Zelle in Spalte 3 (C)

Sub SchreibeInNächsteLeere()
Spalte = 3 '     (Nummer der Spalte in die Du schreibst, C = 3 usw.)
FreieZeile = Cells(Rows.Count, Spalte).End(xlUp).Row + 1
Cells(FreieZeile, Spalte).Value = "Dein Text"
End Sub

Gruß Marko
Anzeige
AW: Makros in Excel
19.05.2005 17:17:11
torsten.luksnat@db.com
Vielen vielen Dank, wirklich perfekt

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige