Portal | Forenübersicht | Neues Thema | Suchen | FAQ | Registrieren | Login
Forum > Excel & VBA > VBA.Beispiele >
Fragen zu den VBA-Beispielen aus dem Downloadbereich
In diesem Board befinden sich 110 Themen.
Die Beiträge bleiben immer erhalten.
Es wird moderiert von P@ulchen, RO_SCH.
Seite 1 Neues Thema letztes Thema nächstes Thema Dieses Board durchsuchen Diesen Thread zu meinen persönlichen Favoriten hinzufügen Abonnieren Ohne Zitat Antworten Druckt alle Antworten dieses Themas


 ist offline   Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
29.7.2016 - 18:34 Uhr
Posts



Hallo Zusammen, ich bin der neue :)

Ich habe folgendes problem, ich bin kein Profi sondern versuche nur Sinnvoll und Prakmatisch nachzudenken was Excel für mich tun kann ..

folgendes Problem: Mein Makro soll, als 1. Schritt :die ganzen leeren Rows ausblenden. 2. Schritt :Nach einem Wort suchen bzw zwei Wörtern und die darunter liegenden Zellen in einen Zahl formatieren. 3. Schritt :die leeren Rows wieder einblenden...

Jedes einzelne Makro ansich Funktioniert nur hätte ich das gerne in einem Makro alles zusammen :/

Ich habe meine eine datei hochgeladen wie weit ich bisher bin..

 ist offline  : Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
29.7.2016 - 18:34 Uhr
Posts




 ist offline  Die Datei Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
29.7.2016 - 18:37 Uhr
Posts




 ist offline  Funktionert irgendwie nicht mit dem Hochladen ich stells mal hier ein ... Antworten Zitatantwort Einzelbeitrag drucken Dieses Thema weiterempfehlen
Profil private Nachricht senden
29.7.2016 - 19:04 Uhr
Posts



Sub EinAnfang()

Dim lngSpalte As Long
Dim lngRow As Long
Dim A As Long

lngSpalte = 1
For A = ActiveSheet.Cells(Rows.Count, lngSpalte).End(xlUp).Row To 1 Step -1
If ActiveSheet.Cells(A, 1).Value = "" Then
Rows(A).Delete Shift:=xlUp
End If

Next A

Cells.Find(What:="Preis Teilnehmer", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlDown)).Select


Dim rng As Range
Dim nohand As Range

For Each rng In Selection.Cells
With rng
zs = rng
If zs <> "Preis Teilnehmer" Then

betrag = zs / 1
.NumberFormat = "General"

.Value = betrag

End If
End With
Next rng

Cells.Find(What:="Betrag", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Range(Selection, Selection.End(xlDown)).Select


For Each nohand In Selection.Cells
With nohand
zs = nohand
If zs <> "Betrag" Then

betrag = zs / 1
.NumberFormat = "General"
.Value = betrag
End If
End With
Next nohand

lngRow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For A = lngRow To 1 Step -1
If Cells(A, 1) = "Summe Premiumservices" Then
Rows(Cells(A, 1).Row).Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True

End Sub



Seite 1 nach oben

Forenauswahl:





Numaek's Forum V4.1.0 © 2005 by numaek
Originaltemplate by numaek