Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
952to956
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
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Wert in freie Spalte einfügen
25.02.2008 08:27:00
J.
Hallo
Ich schreibe gerade ein Makro, dass mir in einer bestimmten Spalte in die erste freie Zeile einen Wert schreibt.Nun soll das Makro den selben Wert noch auf einem anderen Tabellenblatt in der ersten freihen Spalte in Zeile 1 einfügen.
Leider bekomme ich das nicht hin.Hier ist mal mein Makro Code

Sub NeueArbeitsgruppe()
Dim e As String
e = InputBox("Bitte geben Sie den Namen der Arbeitsgruppe ein, die Sie hinzufügen möchten!") _
Worksheets("sonstiges").Cells(Cells(Rows.Count, 8).End(xlUp).Row + 1, 8) = e
Worksheets("arbeitsgruppen").Cells(Cells(1, Columns.Count).End(xlToLeft).Column + 1, 1) = e
End Sub


Wenn ich das so laufen lasse, fügt er mir den Text , der in die erste freie Spalte soll, in der 1. Spalte irgendwo ein.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wert in freie Spalte einfügen
25.02.2008 09:03:22
Renee
Hi J.
Da sind Zeilen und Spalten vertauscht und die Referenzierung ist ungenau !

Worksheets("sonstiges").Cells( _
Worksheets("sonstiges").Cells(Rows.Count, 8).End(xlUp).Row + 1, 8) = e
Worksheets("arbeitsgruppen").Cells( _
1, Worksheets("arbeitsgruppen").Cells(1, Columns.Count).End(xlToLeft).Column + 1) = e


GreetZ Renée

AW: Wert in freie Spalte einfügen
25.02.2008 09:05:00
Ingo
Hallo N.N.
Bei Cells erst die Zeile, dann die Spalte:
Worksheets("arbeitsgruppen").Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1) = e
mfG
Ingo Christiansen

Anzeige
AW: Wert in freie Spalte einfügen
25.02.2008 09:07:00
Uwe
Hi,
ich glaube Du musst nur in der letzten Zeile die 1 nach vorne stellen:
Worksheets("arbeitsgruppen").Cells(1,Cells(1, Columns.Count).End(xlToLeft).Column + 1) = e
Klappt es?
Gruß
Uwe
(:o)

Referenzierung ist wichtig...!
25.02.2008 09:17:00
Renee
Hi Ingo & Uwe,
Die Referenzierung des Objekts (Tabellenblatt) für das Bestimmen der Spalte, bzw Zeile, ist entscheidend.
Je nach dem, welches das aktive Blatt ist, werden in den Teilbefehleb Cells(Rows.Count, 8).End(xlUp).Row + 1 und Cells(1, Columns.Count).End(xlToLeft).Column + 1 die Daten des aktiven Blatts genommen. Das kann zu lustigen Ergebnissen führen ;-)
GreetZ Renée
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige