Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1104to1108
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren in nächst freie Spalte

Kopieren in nächst freie Spalte
Wolle27
Hallo liebe Excel-Gemeinde,
vielleicht kann mir jemand helfen.
Ich mache bestimmte Eingaben, in eine Excel Tabellenblatt. z.B. Spalte A
Spaltenkopf ist heutiges Datum.
Nachdem alle Eingaben erledigt sind, sollen die daraus erzeugten Ergebnisse in eine andere Tabelle mit Spaltenkopf kopiert werden, sodass das Datum natürlich erhalten bleibt.
Das wäre für mich natürlich kein Problem darzustellen.
Ich möchte aber z.B. die zweite Eingabe am morgigen Tag ebenfalls abspeichern aber dann in der nächsten freien Spalte neben den Eingaben von heute, also eine Tabelle erzeugen die sich täglich erweitert und immer in die nächst freie Spalte reinkopiert.
Wie würde das Makro aussehen?
MfG
Wolle

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Kopieren in nächst freie Spalte
19.09.2009 15:56:11
Hajo_Zi
Hallo Unbekannter,
ermittle die Letzte Spalte und dann +1
Dim LoLetzte As Integer
' unabhängig von Excelversion
' für Zeile 1
LoLetzte = IIf(IsEmpty(Cells(1, Columns.Count)), Cells(1, Columns.Count).End(xlToLeft).Column, Columns.Count)

AW: Kopieren in nächst freie Spalte
19.09.2009 15:59:00
Tino
Hallo,
vielleicht geht es so.
Sub speichern()
Dim Bereich As Range
Dim varCol

With Sheets("Tabelle1") 'Eingabetabelle 
 Set Bereich = .Range(.Range("A1"), .Cells(.Rows.Count, 1).End(xlUp))
End With

With Sheets("Tabelle2") 'Ausgabetabelle 
 varCol = Application.Match(Bereich(1, 1).Value2, .Rows(1), 0)
 
    If IsNumeric(varCol) Then
       Bereich.Copy .Cells(1, varCol)
    Else
       If IsEmpty(.Cells(1, 1)) Then
           Bereich.Copy .Cells(1, 1)
       Else
           Bereich.Copy _
           IIf(IsEmpty(.Cells(1, .Columns.Count)), _
           .Cells(1, .Columns.Count).End(xlToLeft).Offset(0, 1), _
           .Cells(1, .Columns.Count))
       End If
    End If

End With

End Sub
Gruß Tino
Anzeige
AW: Kopieren in nächst freie Spalte
19.09.2009 16:09:15
Wolle27
Hallo Tino,
das Makro funktioniert prima, vielen Dank dafür.
Ist genau das was ich brauche.
Vielen Dank
Wolle
AW: Kopieren in nächst freie Spalte
20.09.2009 11:27:34
Wolle27
Hallo Tino,
ich hab doch noch Probleme,
wie müßte das Makro aussehen, wenn die erste zu Übernehmende Spalte die Spalte C wäre und bei der Zieltabelle ebenfalls ab Spalte c die Übernahme und Datumsprüfung beginnt?
so müsste es gehen.
20.09.2009 17:56:23
Tino
Hallo,
Option Explicit

Sub speichern()
Dim Bereich As Range
Dim varCol

With Sheets("Tabelle1") 'Eingabetabelle 
 Set Bereich = .Range(.Range("C1"), .Cells(.Rows.Count, 3).End(xlUp))
End With

With Sheets("Tabelle2") 'Ausgabetabelle 
 varCol = Application.Match(Bereich(1, 1).Value2, .Range(.Cells(1, 3), .Cells(1, .Columns.Count)), 0)
 
    If IsNumeric(varCol) Then
       Bereich.Copy .Cells(1, varCol + 2)
    Else
       If IsEmpty(.Cells(1, 3)) Then
           Bereich.Copy .Cells(1, 3)
       Else
           Bereich.Copy _
           IIf(IsEmpty(.Cells(1, .Columns.Count)), _
           .Cells(1, .Columns.Count).End(xlToLeft).Offset(0, 1), _
           .Cells(1, .Columns.Count))
       End If
    End If

End With

End Sub
Gruß Tino
Anzeige

304 Forumthreads zu ähnlichen Themen

formatierte Zelle automatisch nach unten schieben
oblivion

Hallo, ich habe eine Frage zu Zellen.
Ich habe sagen wir in L2-L14 Namen stehen. Die Zellen habe ich mit einem Rahmen formatiert. Jetzt kann es aber passieren, dass ich in L15 die Liste weiterführen muss, da ein neuer Name dazugekommen ist. Gibt es eine einfache Möglichkeit, das, wenn ich i...
20.08.2008 17:36:09
Thread-ID: 1003263
5 Beiträge
Anzeige
Formel automatisch nach unten ziehen
Hartwig

Hallo Leute,
Ich habe eine Frage.
In A1 steht ein Wert, in B1 eine Formel.
Gibt es eine Möglichkeit dass sich die Formel von B1 in die
angrenzenden unteren Zellen (B2, B3 usw.) erweitert, wenn die Zellen
A2, A3 usw. mit Werten gefüllt werden?
Danke schon mal für eure Hil...
27.01.2009 11:03:00
Thread-ID: 1044121
7 Beiträge
Zellen nach Kriterium automatisch kopieren
Matthias

Hallo zusammen,
ich würde gerne folgende Aufgabe über ein Makro lösen
Ein Tabellenblatt enthält eine Nummer in C3, dieser Nummer sind in weiteren Spalten (A3, B3, D3,...) Werte zugeordnet.
Wenn nun beispielsweise in C100 die gleiche Nummer wie in C3 eingegeben wird, sollen die Werte...
07.08.2009 12:59:15
Thread-ID: 1094257
5 Beiträge
Anzeige
Zellen nach unten ziehen
welga

Hallo,
ich glaube ich stehe zur Zeit voll auf dem Schlauch.
Ich habe in Spalte A die Zahlen 1 bis 1024. Dann habe ich noch B1=A1, B2=A4, B3=A7, B4=A10. Da es aber zu mühsam ist die einzelnen Zellen in Spalte B von Hand zu füllen, habe ich versucht alle ausgefüllten Zellen zu markieren u...
22.09.2009 11:14:07
Thread-ID: 1104593
3 Beiträge
Diagramm und einzelen Zellen nach PPT kopieren
Mandy

Hallo,
ich habe eine Excelmappe mit Daten und Diagrammen. Meine Frage dazu, ist es möglich, mit einem Makro aus Excel heraus, Diagramme (Diagramm 1", "Diagramm 2") und / oder ein kopierter Range (zB A1 : D10)
in ein Powerpointdokument zu bringen ?
Ich stelle mir das so vor, dass nac...
02.10.2009 09:57:53
Thread-ID: 1106620
2 Beiträge
VBA: Zellen vergleichen, Zellen nach unten
Scot

Hallo Leute
Ich hoffe, in diesem Forum eine Lösung für mein Problem zu finden. Bin seit Tagen auf der Suche.
Meine Tabelle sieht so aus, wie die hochgeladene, Blatt "Ausgangslage":
https://www.herber.de/bbs/user/66860.xls
Ziel soll sein, die Spalten B und N ab Zeile 6 Zeile für...
29.12.2009 02:57:17
Thread-ID: 1126145
6 Beiträge
VBA Formel kopieren und ausführen | Herbers Excel-Forum
bluesky61@team-ab.de
Hallo zusammen,
aus Access hole ich per Query immer wieder verschiedene Datensatzmengen zur weiteren Verarbeitung in ein Worksheet ("Produktion"). Überschriften A1:T1 , Datensätze unterschiedliche Anzahl
Zur weiteren Auswertung, muss ich häufig noch Formeln daneben setzen (z.B. in Spalte U)...
30.01.2010 08:49:30
Thread-ID: 1134334
20 Beiträge
Spalte mit VBA um eine Spalte nach rechts kopieren
Hagen

Hallo zusammen,
ich benötige mal eure Hilfe!
Ich möchte mit einem VBA Code den Bereich A10:A20 nach B10:B20 kopieren, bei erneutem Ablauf des Macros sollte dann der Bereich von B nach C und das nächte mal von C nach D usw Kopiert werde
Ich habe dazu aber leider keine Lösung! und hof...
24.02.2010 12:35:31
Thread-ID: 1141023
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
3
6
4
4
2
1
5
19
7
9
2
2
3
4
35
3
3
18
2
2
6
5
1
3