Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 10:29:26
Userform Multipage - Page auswählen
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
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
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

860to864: Wer Kann Mir Ein MAKRO Schreiben !?

Forumthread: Wer Kann Mir Ein MAKRO Schreiben !?

Wer Kann Mir Ein MAKRO Schreiben !?
06.04.2007 07:54:00
Leo
Moin Moin Zusammen,
ich habe hier einmal mein Problem (23 KB klein) hochgeladen - https://www.herber.de/bbs/user/41605.xls ...
Ich benötige für meine E Spalte ein MAKRO, dass jeweils die obere Zeile kopiert - also das in E10, E9 reinkommt, in E9 E8 und so weiter. Ein kleinen Haken hat die Sache, denn in vereinzelten E Zeilen habe ich eben bereits ein paar Daten.
Am besten schaut euch einfach mal die Datei an ...
Ich habe neben der URSPRUNGS Tabelle bereits auch eine ZIEL Tabelle eingefügt, so dass sich jeder ein Bild (über die Lösung, die ich nicht einzeln manuell einfügen will) machen kann. Für einen Experten sollte dies wohl kein Problem darstellen - mich kostete es fast die ganze Nacht ;)
Dank` Euch schon jetzt !!!
Mit Besten Wünschen & Entspannte Feiertage !!!!
Leo van der Haydn
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wer Kann Mir Ein MAKRO Schreiben !?
06.04.2007 08:19:00
Hans
Hallo Leo,
wie folgt: 

Sub Einfuegen()
Dim vValue As Variant
Dim lRow As Long, lRowL As Long
Dim iCol As Integer, iColL As Integer
lRowL = Cells(Rows.Count, 1).End(xlUp).Row
iColL = Cells(1, 256).End(xlToLeft).Column
For iCol = 2 To iColL
vValue = ""
For lRow = 2 To lRowL
If Not IsEmpty(Cells(lRow, iCol)) Then
vValue = Cells(lRow, iCol).Value
Else
If vValue  "" Then
Cells(lRow, iCol).Value = vValue
End If
End If
Next lRow
Next iCol
End Sub

Gruss hans
Anzeige
AW: Wer Kann Mir Ein MAKRO Schreiben !?
06.04.2007 08:47:00
Leo
Guten Morgen Hans,
perfekt, das war genau das was ich benötigt habe !!!! Es funktioniert !!!
Schön, dass der Chef mir persönlich helfen konnte - KANN DIR HIER MIT REINEM GEWISSEN SCHREIBEN, DASS DEIN FORUM EINDEUTIG DAS BESTE EXCEL-FORUM IM DEUTSCHSPRACHIGEN RAUM IST !!!!
Ehre wem Ehre gebührt ...
Die Feiertage sind gerettet - jetzt kann ich meine Hausaufgaben erledigen ...
Aber heute, hier & jetzt gehe ich erst einmal schlafen - muss noch eine ganze Nacht einholen ;)
Wünsch Dir (euch allen) ein entspanntes friedliches Wochenende :
Mit besten Wünschen & weiterhin viel Erfolg :
Leo van der Haydn
Anzeige
;

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