Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1580to1584
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
Inhaltsverzeichnis

macro spalte mit zeile tauschen

macro spalte mit zeile tauschen
01.10.2017 22:06:54
Thomas
Hallo Excelfreunde,
Ich möchte eine Spalte und eine Zeile miteinander Vergleichen, in Tabelle1, Spalte D ab Zeile 6, stehen unterschiedliche Werte. Nun sollen in Tabelle2, ab Zelle F11 die Daten ohne doppelte Werte, mit einem Abstand von zwei Leerspalten eingetragen werden.
Dazu habe ich das untenstehende Macro gefunden. Was ich leicht abändern muss. Denn diese Macro trägt diese Werte in die Spalte B ein.
Im anghängten Beispiel habe ich es noch einmal beschrieben.
ich dachte es geht einfach in dem ich das Offset verändere nun ja wie immer ist es nicht so einfach
https://www.herber.de/bbs/user/116688.xlsm
kann sich dies mal jemand anschauen?
Das untenstehende Makro ist noch das orginale ich dachte so stiffte ich weniger Verwirrung.
liebe grüsse Thomas
Dim i As Long
Set wksMa = Worksheets("Tabelle1")
Set wksMk = Worksheets("Tabelle2")
If IsEmpty(wksMk.Cells(3, 2)) Then
wksMk.Cells(3, 2) = wksMa.Cells(6, 4).Value
End If
For i = 6 To wksMa.Range("D65000").End(xlUp).Row
If WorksheetFunction.CountIf(wksMk.Range("B1:B100"), wksMa.Cells(i, 4).Value) = 0 Then 'Bereich B1:B100 noch anpassen
wksMk.Range("B65536").End(xlUp).Offset(4, 0).Value = wksMa.Cells(i, 4).Value
End If
Next i

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

Betreff
Datum
Anwender
Anzeige
AW: macro spalte mit zeile tauschen
02.10.2017 07:51:18
Hajo_Zi
Ich habe mich mal an das gehalten was im Beitrag steht und nicht das was in der Datei als richtig Bezeichnet wurde.
Option Explicit
Private Sub CommandButton1_Click()
Dim wksMa As Worksheet
Dim i As Long
Dim Loletzte As Long
Set wksMa = Worksheets("Tabelle1")
'Set wksMk = Worksheets("Tabelle2")
With Worksheets("Tabelle2")
If IsEmpty(.Cells(3, 2)) Then
.Cells(3, 2) = wksMa.Cells(6, 4).Value
End If
For i = 6 To wksMa.Range("D1048576").End(xlUp).Row
If WorksheetFunction.CountIf(.Rows(11), wksMa.Cells(i, 4).Value) = 0 Then 'Bereich  _
B1:B100 noch anpassen
Loletzte = IIf(IsEmpty(.Cells(11, .Columns.Count)), .Cells(11, .Columns.Count). _
End(xlToLeft).Column, .Columns.Count)
Loletzte = Application.WorksheetFunction.Max(Loletzte, 3)
.Cells(11, Loletzte).Offset(0, 3) = wksMa.Cells(i, 4).Value
'.Range("B1048576").End(xlUp).Offset(4, 0).Value = wksMa.Cells(i, 4).Value
End If
Next i
End With
End Sub

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Anzeige
besten dank an Hajo
02.10.2017 10:35:25
Thomas
Hallo Hajo,
es klappt auf anhieb,
hab besten dank deine schnelle Hilfe.
Liebe grüsse thomas

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige