Thema Datum  Von Nutzer Rating
Antwort
04.11.2018 22:10:25 Yvonne
NotSolved
04.11.2018 22:43:24 Flotter Feger
NotSolved
04.11.2018 23:03:43 Yvonne
NotSolved
Blau Markierten Eintrag aus Tabelle 1 in erste leere Zeile Tabelle2 übertragen
 04.11.2018 23:20:59 Gast21011
NotSolved

Ansicht des Beitrags:
Von:
Gast21011		 Datum:
04.11.2018 23:20:59		 Views:
651		 Rating:
     
Antwort:
  Ja
Thema:
Markierten Eintrag aus Tabelle 1 in erste leere Zeile Tabelle2 übertragen

Als Ereignis - ins Klassenmodul Tabelle1

?
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
 
   If Target.Count = 1 And _
      UCase(Target.Value) = "X" And _
         Not Intersect(Columns("E"), Target) Is Nothing Then
       
      With Sheets("Tabelle2").Columns(1)
         .Cells(.Cells.Count).End(xlUp).Offset(1).Value = Target.Offset(, -4)
         .RemoveDuplicates Columns:=1, Header:=xlNo
      End With
   End If
 
End Sub

oder alternativ als Trivial - Makro (Modul) für die Massenanalyse

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub NameCopyX()
'In Tabelle1 sind in Spalte A Namen aufgezählt.
 
Dim x As Long
Dim arrX() As Variant
 
   'Bei einigen Namen steht in derselben Zeile in Spalte E ein x
   With Sheets("Tabelle1").Columns(1)
      arrX = .Range(.Cells(1), .Cells(.Cells.Count).End(xlUp)).Offset(, 4).Value
   End With
    
      'Die werte, die mit einem X in Spalte E gekennzeichnet sind
      With Sheets("Tabelle2").Columns(1)
         For x = LBound(arrX, 1) To UBound(arrX, 1)
            If UCase(arrX(x, 1)) = "X" Then
               'in die erste leere Zeile in Tabelle 2 Spalte A übertragen
               .Cells(.Cells.Count).End(xlUp).Offset(1).Value = _
               Sheets("Tabelle1").Rows(x).Cells(1)
            End If
         Next x
         .RemoveDuplicates Columns:=1, Header:=xlNo
      End With
 
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
04.11.2018 22:10:25 Yvonne
NotSolved
04.11.2018 22:43:24 Flotter Feger
NotSolved
04.11.2018 23:03:43 Yvonne
NotSolved
Blau Markierten Eintrag aus Tabelle 1 in erste leere Zeile Tabelle2 übertragen
 04.11.2018 23:20:59 Gast21011
NotSolved