Thema Datum  Von Nutzer Rating
Antwort
03.05.2007 14:56:20 mahtemilian
NotSolved
07.05.2007 11:16:07 Rasta
NotSolved
Rot Aw:mehrere Fragen
 07.05.2007 16:19:51 Joe
NotSolved

Ansicht des Beitrags:
Von:
Joe		 Datum:
07.05.2007 16:19:51		 Views:
1108		 Rating:
     
Antwort:
  Ja
Thema:
Aw:mehrere Fragen
zu 3)
Das habe ich mal geschrieben,
ist zwar etwas anders aber evtl. lässt es sich ja für deine Bedürfnisse anpassen!
Joe

'****************************************************************
' Diese Funktion führt dient zur Auswertung der Messergebnisse
' Über die Errorlevel kann eine Auswahl getroffen werden
'****************************************************************
Private Sub ShowErrLevel_Click()
Dim ZelleStatusSource, ZelleNrSource, ZeileSource, ZeileDestination As String
Dim ZeilenindexSource, ZeilenindexDestination As Integer

ZeilenindexSource = 1
ZeilenindexDestination = 1

Do
ZelleStatusSource = "D" & ZeilenindexSource
ZeileSource = "" & ZeilenindexSource & ":" & ZeilenindexSource
ZeileDestination = "" & ZeilenindexDestination & ":" & ZeilenindexDestination

Sheets("PRO-Files").Select
Range(ZelleStatusSource).Select
If ActiveCell.Value >0 Then 'Wenn die Zelle nicht leer ist,
Call copyLine(ZeileSource, ZeileDestination)
ZeilenindexDestination = ZeilenindexDestination + 1 'nur hochzählen wenn tatsächlich kopiert
End If
ZeilenindexSource = ZeilenindexSource + 1 'immer hochzählen
Loop While ActiveCell.Value >= 1 'Solange bis das Ende des Bereichs erreicht ist

Sheets("Auswertung").Select 'Focus auf Sheet Auswertung
Columns("A:F").AutoFit
ActiveWindow.ScrollRow = 1

End Sub

Sub copyLine(ZeileSource, ZeileDestination As String)
Sheets("PRO-Files").Select
Rows(ZeileSource).Select
Selection.Copy
Sheets("Auswertung").Select
Rows(ZeileDestination).Select
ActiveSheet.Paste
End Sub


mahtemilian schrieb am 03.05.2007 14:56:20:

Hi, hab hier mal wieder ein Paar Fragen an euch:

1)Wie kann ich die Anzahl an Werten in einer ListBox begrenzen ? Es sollen bsp. nur 5 Werte angezeigt werden

2)Wie kann ich es vermeiden, dass die ListBox Werte doppelt anzeigt ?
z.B. A + B & B + A

3)Ist es möglich ein Makro zu schreiben, das nur ausgefüllte Zellen in einem Bereich auf ein anderes Tabellenblatt übertragen ? Also, der Bereich bleibt immer gleich groß, nur einige Zellen in diesen Bereich sind manchmal ausgefüllt und manchmal nicht !

Bitte um baldige Hilfe
mfG, mahtemilian

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
03.05.2007 14:56:20 mahtemilian
NotSolved
07.05.2007 11:16:07 Rasta
NotSolved
Rot Aw:mehrere Fragen
 07.05.2007 16:19:51 Joe
NotSolved