Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle per makro aktualisieren

Forumthread: Tabelle per makro aktualisieren

Tabelle per makro aktualisieren
16.05.2006 20:32:39
Cold
hallo forumgemeinde
ich habe 2 tabellen. nur die erste enthält daten die eingeben werden. nun will ich per makro das die erste 6 spalten der jeweiligen zeile aus blatt 1 in das blatt 2 in der gleichen zeile übergeben werden.das wär ja net so schwer nur will ich das der wert der übergeben werden soll gleich der spalte im blatt 2 ist. im blatt 1 stehen nur zahlen.
wer kann mir da helfen brauch einen ansatz
hier mal meiner funzt nur nicht
Dim j, i, a As Integer
Worksheets(1).Activate
letztezelle = Range("A65536").End(xlUp).Row
For j = 2 To letztzelle
For i = 1 To 6
a = Sheets(1).Cells(j, i).Value
Sheets(2).Cells(j, a) = "1"
Next i
Next j
gruß TC
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle per makro aktualisieren
16.05.2006 21:05:31
Rocky
Hallo,
Ich glaub ich habs jetzt fünf mal gelesen doch nich verstanden. Haste ne beispieldatei?
Gruß Rcky
"Wenn unter den Blinden der Einäugige König ist, dann findet man hier die Herren der Ringe!"
Anzeige
AW: Tabelle per makro aktualisieren
16.05.2006 22:03:46
Erich
Hi T Cold,
meinst du das, was diese beiden Makros tun? 
Option Explicit
Sub lang()
Dim letzteZeile As Long, zz As Long, sp1 As Integer, sp2 As Integer
letzteZeile = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
Sheets(2).Cells.ClearContents
For zz = 2 To letzteZeile
For sp1 = 1 To 6
sp2 = Sheets(1).Cells(zz, sp1)
If sp2 >= 1 And sp2 <= 256 Then
Sheets(2).Cells(zz, sp2) = "1"
End If
Next sp1
Next zz
End Sub
Sub kurz()
Dim zz As Long, sp1 As Integer
For zz = 2 To Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
For sp1 = 1 To 6
Sheets(2).Cells(zz, Sheets(1).Cells(zz, sp1)) = "1"
Next sp1
Next zz
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Tabelle per makro aktualisieren
17.05.2006 10:03:11
Cold
danke erich
im prinzip ja. da ich es noch etwas anders wollte. hab ich das von dir dementsprechend angepasst.
als gedankenanstoß war das genau richtig.
danke für die mühe
gruß TC
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige