Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
540to544
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
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erstellen einer Übersicht

Erstellen einer Übersicht
04.01.2005 10:12:30
Andre
Hello@all,
Hab 2 Tabellen!!
(Tabelle 1=Daten....und Tabelle 2=Übersicht)
-die Daten sollen in die Übersicht geschrieben weden!
...hab da mal was vorbereitet!!
https://www.herber.de/bbs/user/15576.xls
...bekomme es einfach nicht hin...
Brauche unbedingt professionelle hilfe,
hoffe dieses Forum kann Helfen!!
MFG
André

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erstellen einer Übersicht
HerbertH
hallo Andre,
eine Formellösung hast du ja schon...
falls du eine VBA-Lösung brauchst...


Option Explicit
Public Sub Plan_erst()
Dim sh As Worksheet, sh1 As Worksheet
Dim i%, x%, lz%, s As Byte
Set sh = Sheets("Übersicht")
Set sh1 = Sheets("Daten")
lz = sh1.Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
 For s = 3 To 33
  For i = 2 To lz
    For x = 7 To 17
    If sh1.Cells(i, 1) = sh.Cells(x, 35) And _
      sh1.Cells(i, 2) = sh.Cells(5, s) Then
        sh.Cells(x, s) = sh1.Cells(i, 5)
    End If
   Next
  Next
Next
Application.ScreenUpdating = True
End Sub

     gruß Herbert
Anzeige
AW: Erstellen einer Übersicht
HerbertH
ich hab etwas vergessen...
am Blatt "Daten" in E2 mußt du diese Formel eingeben
und runterziehen...
=SVERWEIS(D2;$I$2:$K$9;3;0)
könnte man auch per Makro machen...
gruß Herbert
AW: Erstellen einer Übersicht
04.01.2005 11:55:17
Andre
Hallo,
....der code is top...Danke!!
Kleines Problem noch!.....im Moment wird NUR der Dienst vom Startdatum eingetragen.....nicht von Startdatum bis Enddatum....ist meine Schuld gewesen!! ...die Daten im meinem Beispiel sind ja alle gleich gewesen!!
....wie bekomme ich das realisiert?
MFG
Andre
AW: Erstellen einer Übersicht
HerbertH
zwischen VON und BIS mußt du 5 ausgeblendete Spalten einfügen,
dann müßte dieser Code funktionieren:
(auch ohne Sverweis-Formel)


Option Explicit
Public Sub Plan_erst()
Dim sh As Worksheet, sh1 As Worksheet
Dim i%, x%, y%, lz%, s As Byte, s1 As Byte
Dim z%, z1%, d%, s2%, s3%
Set sh = Sheets("Übersicht")
Set sh1 = Sheets("Daten")
lz = sh1.Cells(Rows.Count, 1).End(xlUp).Row
d = 1
Application.ScreenUpdating = False
For z = 2 To 77
 For s2 = 3 To 7
   sh1.Cells(z, s2) = sh1.Cells(z, 2) + d
   d = d + 1
 Next
 d = 1
Next
For z1 = 2 To 77
 For s3 = 3 To 7
  If sh1.Cells(z1, s3) >= sh1.Cells(z1, 8) Then
      sh1.Cells(z1, s3).ClearContents
  End If
 Next
Next
 For i = 2 To lz
   For y = 2 To 9
    If sh1.Cells(i, 9) = sh1.Cells(y, 14) Then
        sh1.Cells(i, 10) = sh1.Cells(y, 16)
     End If
    Next
  Next
  
For s = 3 To 33
 For s1 = 2 To 8
  For i = 2 To lz
    For x = 7 To 17
      If sh1.Cells(i, 1) = sh.Cells(x, 35) And _
        sh1.Cells(i, s1) = sh.Cells(5, s) Then
         If sh1.Cells(i, s1) <> "" Then
        sh.Cells(x, s) = sh1.Cells(i, 10)
      End If
      End If
     Next
   Next
 Next
Next
Application.ScreenUpdating = True
End Sub

     gruß Herbert
Anzeige
AW: Erstellen einer Übersicht
04.01.2005 14:12:07
Andre
...hab ich gemacht!!
Jetzt wird Von UND Bis eingetragen(einzeln) nicht VON-BIS(alsZeitraum)!!
Hab selber versucht rauszufinden warum....aber so richtig hab ich leider nicht den Durchblick!
MFG
Andre
AW: Erstellen einer Übersicht
ANdre
:-)
THX

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige