Zurück   klamm-Forum > klamm-Lose > Lose4Scripts > Lose4Scripts (erledigt)

 
 
LinkBack Themen-Optionen Ansicht
Alt 21.12.2006, 07:29:45   #1 (permalink)
Erfahrener Benutzer

ID: 14601
Lose-Remote

Reg: 24.04.2006
Beiträge: 236
Standard [S] EXCEL VBA Programmierer - Close

Hallo lieber Makroprogrammierer,

Ich habe eine Tabelle erhalten, die ein wenig "umgeschrieben/umgestaltet" werden muß.

Was will/soll getan werden.
1. Die Spalte B soll durchsucht werden --> Nach einem Datum im Format TT.MM.JJJJ
2. Dieses Datum soll genommen werden und vorne in Spalte A geschrieben werden und zwar von der Zeile an wo das "OriginalDatum" drinne steht bis zum nächsten Datum in Spalte B
3. Die Spalte B soll durchsucht werden und immer die Zeile löschen, wo "Subtotal ...." steht.
4. Die Spalte B soll durchsucht werden und immer die Zeile löschen, wo "Total ...." steht.
5. Die Spalte B soll durchsucht werden und immer die Zeile löschen, wo "" steht.

Damit ihr versteht was ich meine, Anbei eine Erklärung im excelformat.
Siehe hier:
http://www.sharebigfile.com/file/415...piel1.zip.html
2 Tabellen
--> 1 Wunschtabelle
--> 2 Beispielbestand (mit den könnt ihr testen)




Ich hatte mal ein Makro geschrieben, das einiges schafft, aber das mit dem Datum bekommt der einfach nicht so hin, wie ich es will, da das diesmal eine andere Spalte ist.


Code:
Code:
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:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
Option Explicit Sub Main() 'Wird beim Start ausgeführt und ruft dann die einzelnen Prozeduren zum Kopieren und Löschen auf KopierenMalAnders LeerzeilenLoeschen End Sub Sub KopierenMalAnders() Dim iRow As Integer Dim iLastRow As Integer Dim sName As String Range("A1").Select iRow = ActiveCell.SpecialCells(xlLastCell).row sName = ActiveSheet.Cells(iRow, 1) Do sName = ActiveSheet.Cells(iRow, 1) iLastRow = iRow If sName = "" Then Do Until sName <> "" iRow = iRow - 1 If iRow = 0 Then Exit Sub End If sName = ActiveSheet.Cells(iRow, 1) Loop End If ActiveSheet.Range(Cells(iRow, 7), Cells(iLastRow, 7)) = sName iRow = iRow - 1 Loop Until iRow = 0 End Sub Public Sub LeerzeilenLoeschen() ' Die Variable lngLetzte wird als Typ Long deklariert Dim lngLetzte As Long ' Die Variable lngZeile wird als Typ Long deklariert Dim lngZeile As Long ' Bildschirmaktualisierung AUSschalten (Makro läuft schneller, Bildschirm flackert nicht) Application.ScreenUpdating = False ' Letzte belegte Zelle in Spalte B plus 1 raussuchen und merken lngLetzte = IIf(IsEmpty(Range("B65536")), Range("B65536").End(xlUp).row + 1, 65536) ' in einer Schleife von dieser Letzten bis Zeile 1 gehen - also von unten nach oben For lngZeile = lngLetzte To 1 Step -1 ' Wenn die Zelle in der ensprechenden Zeile in Spalte B leer ist If Cells(lngZeile, 2) = "" Then ' dann lösche die gesamte Zeile Cells(lngZeile, 2).EntireRow.Delete ' Ende der Bedingung End If ' Nächste Zeile mit der Bedingung vergleichen Next ' Bildschirmaktualisierung EINschalten (nicht vergessen) Application.ScreenUpdating = True End Sub
Teilweise ist das Makro falsch, da es für eine andere Tabelle war. Aber die Richtung stimmt schon.

Ich gebe dafür mindestens 40-50 mio lose.
Bitte kein Kommentar nach dem Motto, warum VBA ....
Das wird nun mal genutzt. :-) *G*

Vielen Dank
MB1900
 

Geändert von mb1900 (21.12.2006 um 21:27:14 Uhr)
mb1900 ist offline  
Alt 21.12.2006, 21:20:21   #2 (permalink)
Erfahrener Benutzer

ID: 14601
Lose-Remote

Reg: 24.04.2006
Beiträge: 236
Standard

Habe wo anders Hilfe gefunden.

Kann geschlossen werden.

Vielen Dank
 

Geändert von mb1900 (21.12.2006 um 21:26:17 Uhr)
mb1900 ist offline Threadstarter  
 

Gesponsorte Links

Anzeige


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks sind an
Pingbacks sind an
Refbacks sind an


Ähnliche Themen
Thema Autor Forum Antworten Letzter Beitrag
(Close- hab jemanden) suche programmierer für monsterprojekt. zahle angemessen outrage Lose4Scripts (erledigt) 1 03.09.2008 16:13:22
[Excel] Umfassende Berechnung ausserhalb von Excel b_kannter Programmierung 8 05.11.2007 14:33:52
Excel Problem Holti Software/Windows 4 04.04.2007 15:54:40
Programmierer vereinigt euch! - oder: Benutzergruppe "Programmierer" theHacker Programmierung 114 21.05.2006 22:41:12
[S] Programmierer für eine Adressverwaltung (einfach) (close) mb1900 Lose4Scripts (erledigt) 2 01.05.2006 11:05:02


Alle Zeitangaben in WEZ +1. Es ist jetzt 23:19:02 Uhr.