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:
1020		 Rating:
     
Antwort:
  Ja
Thema:
Doppelte Einträge visualisieren

Also das ganz sollte ohne rahmen zu machen so aussehen:

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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:
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
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