Thema Datum  Von Nutzer Rating
Antwort
22.09.2013 14:44:47 DC
NotSolved
22.09.2013 15:14:07 Gast65323
NotSolved
22.09.2013 15:34:36 DC
NotSolved
22.09.2013 18:32:28 Neuhäusler Korbinian
NotSolved
22.09.2013 19:12:44 DC
NotSolved
22.09.2013 19:16:18 Neuhäusler Korbinian
NotSolved
22.09.2013 19:28:35 Gast74023
NotSolved
Blau Doppelte Einträge visualisieren
 22.09.2013 21:17:27 Neuhäusler Korbinian
NotSolved

Ansicht des Beitrags:
Von:
Neuhäusler Korbinian		 Datum:
22.09.2013 21:17:27		 Views:
870		 Rating:
     
Antwort:
  Ja
Thema:
Doppelte Einträge visualisieren

Also das ganz sollte ohne rahmen zu machen so aussehen:

 

Sub Tabelle_Prüfen()
Dim Zeile As Long
Dim Zeilemax  As Long
Dim Spalte As Integer
Dim Bereich As Range

With Tabelle1
Zeilemax = .Cells(Rows.Count, 3).End(xlUp).Row

For Spalte = 1 To 2

 For Zeile = 2 To Zeilemax
  
  If .Cells(Zeile, Spalte).Value = .Cells(Zeile - 1, Spalte).Value Then
  
   .Range(.Cells(Zeile, Spalte), .Cells(Zeile - 1, Spalte)).Select
   
   Application.DisplayAlerts = False
   Selection.Merge
   Application.DisplayAlerts = True
    
  End If
  
 Next Zeile

Next Spalte

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:



  • 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
22.09.2013 14:44:47 DC
NotSolved
22.09.2013 15:14:07 Gast65323
NotSolved
22.09.2013 15:34:36 DC
NotSolved
22.09.2013 18:32:28 Neuhäusler Korbinian
NotSolved
22.09.2013 19:12:44 DC
NotSolved
22.09.2013 19:16:18 Neuhäusler Korbinian
NotSolved
22.09.2013 19:28:35 Gast74023
NotSolved
Blau Doppelte Einträge visualisieren
 22.09.2013 21:17:27 Neuhäusler Korbinian
NotSolved